Напечатать весь список вершин и название самой высокой

type
       st=string[15];
       vershina=record
       nazvanie:st
       visota:1000..9999
       end;
spisok:array[1..10] of record

For i:=1 to 10 do
 writeln(spisok[i].nazvanie);

max:=1;
For i:=2 to 10 do
 If spisok[i].visota > spisok[max].visota then max:=i;
writeln(spisok[max].nazvanie);

spisok:array[1..10] of vershina;

uses crt;
const n=10;
type
       st=string[15];
       vershina=record
                naz:st;
                vis:1000..9999;
                end;
spisok=array[1..n] of vershina;
var v:spisok;
    i,imx:byte;
begin
clrscr;
writeln('Введите данные о ',n,' вершинах:');
for i:=1 to n do
 begin
  writeln('Вершина ',i);
  write(' Название: ');readln(v[i].naz);
  repeat
  write('Высота от 1000 до 1999 метров: ');
  readln(v[i].vis);
  until(v[i].vis>=1000)and(v[i].vis<=1999);
 end;
clrscr;
writeln('Список вершин:');
writeln;
writeln('---------------------');
writeln('| Название | Высота |');
writeln('---------------------');
imx:=1;
for i:=1 to n do
 begin
  if v[i].vis>v[imx].vis then imx:=i;
  gotoXY(1,whereY);write('| ',v[i].naz);
  gotoXY(12,whereY);write('| ',v[i].vis);
  gotoXY(21,whereY);writeln('|');
 end;
writeln('---------------------');
writeln('Самая высокая вершина ',v[imx].naz,'  высота=',v[imx].vis,' м);
readln
end.