нужна помощь по информатике 9 класс

примени эту программу себе, тут и мах и мин
program zadanie4;
uses crt;
var
i:integer;
max,min,maxi,mini:integer;
a:array[1..10] of integer;
begin
clrscr;
randomize;
for i:=1 to 10 do
a:=random(51);
writeln('ischodni file');
writeln('-----------------');
for i:=1 to 10 do
write(a:5);
writeln; writeln;
maxi:=1; max:=a[1];
for i:=2 to 10 do
begin
if a>max then
begin
max:=a;
maxi:=i;
end;
end;
mini:=1; min:=a[1];
for i:=2 to 10 do
if a;
end;
write('maximalnoe = '); writeln(max);
write('minimalnoe = '); writeln(min);
write('maximalnoe i = '); writeln(maxi);
write('minimalnoe i = '); writeln(mini);
writeln('konec zadachi');
readln;
end.