Вычислить наименьшие элементы массивов х1(15), х2(20) — Pascal(Паскаль)

program PascalGuru;
uses crt;

var x1:array[1..15] of integer;
    x2:array[1..20] of integer;
    i:integer;
    min1,min2:integer;

begin
writeln('Vvedite znacenia massiva "X1"');
for i:=1 to 15 do
begin write('X1[',i,']= '); readln(x1[i]);  end;

clrscr;
writeln('Vvedite znacenia massiva "X2"');
for i:=1 to 20 do
begin write('X2[',i,']= '); readln(x2[i]);  end;

clrscr;
writeln('Vvedenye dannye:');writeln;

write('x1: '); for i:=1 to 15 do write(x1[i],' ');
writeln;
write('x2: '); for i:=1 to 20 do write(x2[i],' ');

min1:=x1[1];
for i:=2 to 15 do
if x1[i]<min1 then min1:=x1[i];

min2:=x2[1];
for i:=2 to 20 do
if x2[i]<min2 then min2:=x2[i];

writeln;writeln;
writeln('MIN(x1)= ',min1);
writeln('MIN(x2)= ',min2);

readln;
end.