Помогите найти ошибку)

[Crish]

Помогите пож-та найти ошибку.

Конкурс красоты. Каждая участница набрала определенное кол-во баллов, кто-то больше, кто-то меньше. Надо найти разницу.

Var
A:array [1..10] of real;
i,n:integer;
max,min:real;
Begin
cirscr;
writeln ('vvedite kol-vo ychastnikov');
readln(n);
for i:=1 to n do
Begin
writeln ('rezultat');
readln (A[i]);
end;
Begin
max:=A[1]
fori:=1 to n do 
if A[i]>max then
max:=A[i];
end;
Begin
min:=A[1];
for i:=1 to n do
if A[i]min then
min:=A[i];
end;
for i:=1 to n do write (A[i]:5:2,' ');
Begin
writeln ('max rezultat');
readln (max);
writeln ('min rezultat');
readln (min);
x:=max-min;
end;
readln;
end.

[ОДИНОЧЕСТВО В СЕТИ]

Var
A:array [1..10] of real;
i,n:integer;
max,min:real;
Begin
cirscr;
writeln ('vvedite kol-vo ychastnikov');
readln(n);
for i:=1 to n do
Begin
writeln ('rezultat');
readln (A[i]);
end;

max:=A[1]
for i:=1 to n do 
if A[i]>max then
max:=A[i];

min:=A[1];
for i:=1 to n do
if A[i]<min then
min:=A[i];

for i:=1 to n do
 write (A[i]:5:2,' ');

writeln ('max rezultat');
writeln (max:5:2);
writeln ('min rezultat');
writeln (min:5:2);
x:=max-min;

Writeln('raznica ',x:5:2)
readln;
end.