Комбинированный тип данных. Структура: название самолета, скорость, грузоподъемность

uses crt;
type
structura=record
Name:string[10];
V:real;
M:real;
Country:string[20];
end;
var
i,n,M_minI:integer;
pn:boolean;
V1,M_min:real;
Vedomost:array[1..20]of structura;
begin
  write('Введите кол-во записей:');read(n);
  for i:=1 to n do
    begin
    writeln('___________________________________________________________________');
      write('Название самолета      ');read(vedomost[i].name);
      write('Скорость                   ');read(vedomost[i].v);
      write('Средняя скорость       ');read(vedomost[i].m);
      write('Страна-производитель ');read(vedomost[i].country);
    writeln('-------------------------------------------------------------------');
    end;
  clrscr;pn:=false;
  write('Введите скорость V=');read(V1);
  writeln('Список-стран производителей производящих самолеты со скоростью более ',v1,' км/ч');
  for i:=1 to n do
    if vedomost[i].v>v1 then
      begin
        writeln(vedomost[i].country); pn:=true;
      end;
  if not(pn)then write('Таких стран не обнаружено!');
  readln;clrscr;
  M_minI:=1;
  M_min:=vedomost[1].m;
  for i:=2 to n do
    if vedomost[i].m<M_min then
      begin
        M_minI:=i;
        m_min:=vedomost[i].m;
      end;
  writeln('Ведомость самолета с наименьшей грузоподъемностью.');
  writeln('Название самолета      ',vedomost[i].name);
  writeln('Скорость                   ',vedomost[i].v);
  writeln('Грузоподъемность       ',vedomost[i].m);
  writeln('Страна-производитель ',vedomost[i].country);
end.