Водномерной числовой таблице (числа от -6 до 17) заменить все отрицательные элементы их модулями. паскаль. можно прямо программой?

Я вот тоже Вышел порешать =).

var p: array [1..1000] of record

slovo:string;

k:integer;

end;

N,i,j,max:integer;

c:char;

a:array [97..122] of integer;

BEGIN

max:=0;

readln(N);

for i:=1 to N do

begin

p[i].slovo:='';

repeat

read(c);

p[i].slovo:=p[i].slovo+c

until c=' ';

readln(p[i].k);

for j:=1 to length(p[i].slovo) do

if (ord(p[i].slovo[j])>=97) and (ord(p[i].slovo[j])<=122) then

a[ord(p[i].slovo[j])]:=a[ord(p[i].slovo[j])]+p[i].k;

end;

for j:=97 to 122 do

if a[j]>max then

max:=a[j];

write(max);

end.

вот в 6 программа выводит все числа кроме 1 и самого числа #1

x=int(input())

s=0

while x!=0:

x=int(input())

s+=1

print(s)

#2

x=int(input())

s=0

while x!=0:

x=int(input())

if x==3:

 s+=1

print(s)

#3

x=1

s=-1

s1=0

while x!=0:

x=int(input())

if (x%2)==0:

 s+=1

else:

 s1+=1

print('четные-',s,'\n','нечетные-',s1)

#4

x=1

s=-1

s1=0

while x!=0:

x=int(input())

if (x%2)==0:

 s+=x

else:

 s1+=x

print('четные sum-',s,'\n','sum нечетные-',s1)

#5

s=0

x=int(input())

while s<=x:

y=int(input())

s+=y

if s<=x:

 break

#6

x=int(input())

t=x-1

while t>1:

if (x%t)==0:

 print(x/t)

 t-=1

else:

 t-=1