Записи. Составить программу, которая содержит информацию о всех планетах солнечной системы

uses crt;
type planet=record
      num,sput:byte;
      name:string;
      end;
var a:array [1..8] of planet;
    i,o:byte;
label 1,2;
procedure writeplanetinfo;
var z:string;
    b:boolean;
    c:byte;
begin
b:=false;
write('Введите название планеты: ');
readln(z);
for i:=1 to 8 do
 if a[i].name=z then
  begin
  b:=true;
  c:=i;
  end;
if b=true then
 begin
  writeln('Название планеты: ',a[c].name);
  writeln('Номер планеты: ',a[c].num);
  writeln('Количество спутников планеты: ',a[c].sput);
 end
else writeln('В списке нет такой планеты.');
write('для продолжения нажмите Enter...');
readln;
end;
procedure changeinfo;
var x,y:byte;
    z:string;
begin
for i:=1 to 8 do
    begin
     write('Введите номер планеты: ');
     readln(x);
     write('Введите название планеты: ');
     readln(z);
     write('Введите количество спутников планеты: ');
     readln(y);
     a[i].num:=x;
     a[i].sput:=y;
     a[i].name:=z;
    end;
write('для продолжения нажмите Enter...');
readln
end;
begin
for i:=1 to 8 do
    a[i].num:=i;
a[1].name:='Меркурий';
a[1].sput:=0;
a[2].name:='Венера';
a[2].sput:=0;
a[3].name:='Земля';
a[3].sput:=1;
a[4].name:='Марс';
a[4].sput:=2;
a[5].name:='Юпитер';
a[5].sput:=67;
a[6].name:='Сатурн';
a[6].sput:=62;
a[7].name:='Уран';
a[7].sput:=27;
a[8].name:='Нептун';
a[8].sput:=13;
1:
writeln('1:Вывести данные по введенному названию планеты.');
writeln('2:Изменить записи о планетах.');
writeln('3:Выход.');
write('Выбирите операцию: ');
readln(o);
case o of
 1:writeplanetinfo;
 2:changeinfo;
 3:goto 2;
 end;
goto 1;
2:
end.