Поиск наибольшего значения массива - исправить код

program lab 3;
uses crt;
var
A:array [1...100] of integer;
C:array [1...100] of integer;
i,n,min,max:real;
begin
clrscr;
repeat;
writeln('vvedite n=');
readlen(n);
until (n > 0) or (n < 100);
for i:=1 to n do
writeln('A',   'I',   '=');
readen(a[i]);
max:= a[1];
for i:=2 to n do
if a[i] > max then
max:=a[i];
for i:=1 to n do
writeln('c', 'i', '=');
readln (c[i]);
min:=c[i];
for i:=2   to n do
if c [i] < min then
min:=c [i];
writeln('naibolchu element v macive A=', max);
readen;
end.

readlen(n);
readen(a[i]);
readen;  - это все неправ написано, компилятор явно не пропустит, правильный вар-т у Вас тоже есть -  readln(c[i]) - только пробел перед скобкой ( не нужен!
по сути - если в цикле больше 2 команд - нужно взять их в "операторные скобки" 
begin .... end; -  
for i:=1 to n do
BEGIN writeln('A', 'I', '=');
         readLN(a[i]);
END;
 
for i:=1 to n do
BEGIN 
writeln('c', 'i', '=');
readln (c[i]);
END;

program lab3;
uses crt;
var
A:array [1..100] of integer;
C:array [1..100] of integer;
i,n,min,max:integer;
begin
clrscr;
repeat;
writeln('vvedite n=');
readln(n);
until (n > 0) or (n < 100);
for i:=1 to n do begin
write('A', 'I', '=');
readln(a[i]);
max:= a[1];           end;
for i:=2 to n do
if a[i] > max then
max:=a[i];
for i:=1 to n do  begin
write('c', 'i', '=');
readln (c[i]);         end;
min:=c[1];
for i:=2 to n do
if c [i] < min then
min:=c [i];
writeln('naibolchu element v macive A=', max);
readln;
end.

until (n > 0) and (n < 100);

until n in [1..99];