Компьютер спрашивает названия планет, радиусы их орбит и скорости движения по орбите.Компьютер ищет планету с макс. радиусом и мин. скоростью.

{Компьютер спрашивает названия планет, радиусы их орбит (в миллионах километров)
и скорости движения по орбите (в миллионах километров в сутки).
Компьютер ищет планету с максимальным радиусом и минимальной скоростью.}
const n=3;
type personal = record
name:string; {название планеты}
rad:string; {радиус орбиты}
cko:string; {скорость движения по орбите}
end;
var a: array[1..n] of personal;
i:byte;
max, min:string;
begin
for i:=1 to n do
begin
writeln('Введите название планеты');
readln(a[i].name);
writeln('Введите радиус орбиты');
readln(a[i].rad);
writeln('Введите скорость движения по орбите');
readln(a[i].cko);
end;
max:=a[1];
for i:=2 to n do
if a[i]>max then max:=a[i];
writeln(max);
 end;
min:=a[1];
for i:=2 to n do
if a[i]< max then max:=a[i];
writeln(min);
end;
for i:= 1 to n do
if max =(a[i].rad) then
writeln ('Планета c максимальным радиусом max(a[i].rad) ')
if min =(a[i].cko) then
writeln ('Планета с минимальной скоростью min(a[i].cko) ')
end.