одномерные массивы(паскаль) - помогите !!!

Ну что же Серега, держи. Но с тебя лучший ответ.
На моём компьютере эта программа отлично работает (как и нужно было тебе, на Паскале) , согласно тем
требованиям, которые ты указал. Перепечатай (или перепиши) все с точностью до запятой и никаких проблем не будет.
Если возникнут какие - то вопросы - напиши, я отвечу.

Program Massiv;
Uses Crt;
Const n=20;
Type mas=Array [1..n] of Integer;
Var d:Mas;
Procedure Zapolnenie(Var c:Mas);
Var i:Byte;
Begin
For i:=1 to n do
c:=Random(36)-5;
End;

Procedure Print1(c:Mas);
Var i:Byte;
Begin
For i:=1 to n do
Write(c,' ');
End;

Procedure Print2(t:byte);
Var i:Byte;
Begin
For i:=1 to t Do
Write(d,' ');
End;

Procedure Max(c:Mas;Var y:Integer);
Var i:Byte;
Begin
y:=c[1];
For i:=2 to n Do
If c>=y Then
y:=c;
End;

Procedure Poz_Max(c:Mas;s:integer;Var k:Byte);
Var i:Byte;
Begin
k:=0;
For i:=1 to n Do
If c=s Then
Begin
k:=k+1;
d[k]:=i;
End;
End;

Function Modyl(d:integer;c:Mas):Byte;
Var i,k:Byte;
Begin
k:=0;
For i:=1 to n Do
if abs(c)>d Then
k:=k+1;
Modyl:=k;
End;

Var a:Mas;
m,j,p:Byte;
r,e:Integer;
Begin
ClrScr;
Randomize;
Zapolnenie(a);
Print1(a);
Max(a,r);
Poz_Max(a,r,j);
writeln;
writeln('Максимальный элемент ',r);
Writeln('Позиции максимальных элементов: ');
Print2(j);
Writeln;
Writeln('Введите заданное число');
Readln(e);
p:=Modyl(e,a);
Writeln('Количество чисел, по модулю превосходящих число ',e,' равно ', p);
Readkey;
End.

и что не получается?