Задачи на записи. Известны данные о пассажирах. Вывести ФИО и количество вещей пассажира с весом вещей больше 30 кг

uses crt;
type DList = record
     Name:string[15];
     Things:integer;
     Wigth:integer;
     end;
var f:file of DList;
    L:Dlist;
    i,k2:integer;
    k,k1:char;
Procedure addlist;
begin
clrscr;
     Assign(f, 'c:\file.txt');Rewrite(f);
     WriteLn('Ââåäèòå èíôîðìàöèþ î ïàññàæèðå:');
     WriteLn();
     repeat
     WriteLn('Ôàìèëèÿ:');
     ReadLn(L.Name);
     WriteLn('Êîë-âî âåùåé:');
     ReadLn(L.Things);
     WriteLn('Âåñ âåùåé:');
     ReadLn(L.Wigth);
     Write(f,L);
     WriteLn('Åùå çàïèñòü?y\n');
     ReadLn(k);
     until(k = 'n');
     Close(f);
end;
 
procedure SortList;
begin
clrscr;
WriteLn('==============================');
WriteLn('|        Ôàìèëèÿ|êîë-âî|  Âåñ|');
WriteLn('==============================');
Assign(f, 'c:\file.txt');Reset(f);
While not eof(f) do begin
Read(f,L);
if L.Wigth>30 then begin
Write('|', L.Name:15, '|', L.Things:6, '|', L.Wigth:5, '|');
end;
end;
Close(f);
WriteLn();
WriteLn();
WriteLn();
WriteLn('Íàæìèòå (Enter)');
ReadLn();
end;
 
begin
WriteLn('Ïåðåéòè â ìåíþ?y\n');
ReadLn(k1);
repeat
clrscr;
WriteLn('1.Ââîä äàííûõ');
WriteLn('2.Âûâîä äàííûõ');
readLn(k2);
case k2 of 1:begin addList end;
           2:begin SortList end;
           end;
until(k1 = 'n');
end.