Нахождение максимального элемента массива

uses crt;
var
   arr:array[1..6] of integer;
   abb:array[1..8] of integer;
   max,q,maxq,b,maxb:integer;
begin
writeln ('Массив Х: ');
for q:=1 to 20 do
         begin
         arr[q]:=random(80);
         writeln (q:2,arr[q]:6);
         end;
max:=arr[1];
for q:=2 to 20 do
    if arr[q]>max then
       begin
       max:=arr[q];
       maxq:=q;
       end;
for b:=1 to 20 do
         begin
         abb[b]:=random(80);
         writeln (b:2,abb[b]:6);
         end;
max:=abb[1];
for b:=2 to 20 do
    if abb[b]>max then
       begin
       max:=abb[b];
       maxb:=b;
       end;       
writeln;
write('Максимальное значение X = ',max,' (Порядковый номер ',maxq,')');
write('Максимальное значение Y = ',max,' (Порядковый номер ',maxb,')');
end.

uses crt;
var
   arr:array[1..6] of integer;
   abb:array[1..8] of integer;
   max,q,maxq,b,maxb:integer;
begin
writeln ('Массив Х: ');
for q:=1 to 6 do
         begin
         arr[q]:=random(80);
         writeln (q:2,arr[q]:6);
         end;
max:=arr[1];
for q:=2 to 6 do
    if arr[q]>max then
       begin
       max:=arr[q];
       maxq:=q;
       end;
       
writeln ('Массив Y: ');
for b:=1 to 8 do
         begin
         abb[b]:=random(80);
         writeln (b:2,abb[b]:6);
         end;
max:=abb[1];
for b:=2 to 8 do
    if abb[b]>max then
       begin
       max:=abb[b];
       maxb:=b;
       end;       
writeln;
writeln('Максимальное значение X = ',arr[maxq],' (Порядковый номер ',maxq,')');
writeln('Максимальное значение Y = ',abb[maxb],' (Порядковый номер ',maxb,')');
end.