Таблица содержит результаты спортивных соревнований по прыжкам в высоту: Ф.И.О.,результат. Создать файл записей SPORTSMEN и заполнить его сведениями о 5 спортсменах — Pascal(Паскаль)

uses crt;
type sportsmen=record
      name:string;
      result:integer;
     end;
var x:array[1..100] of sportsmen;
    i,n,max:integer;
    f:text;
    imax:string;
begin
ClrScr;
repeat
 Write('n=');
 Readln(n);
until n in [5..100];
for i:=1 to n do
 with x[i] do
  begin
   Write(' Name: ');
   Readln(name);
   Write(' Result: ');
   Readln(result);
  end;
Writeln('Spisok: ');
Writeln('---------------------');
Writeln('|  Name  |  Result  |');
Writeln('---------------------');
for i:=1 to n do
 Writeln('|',x[i].name:8,'|',x[i].result:10,'|');
Writeln('---------------------');
max:=x[1].result;
 for i:=2 to n do
  if x[i].result>max then
   begin
    max:=x[i].result;
    imax:=x[i].name;
   end;
Writeln('Lut Sportsmen: ',imax);
Assign(f,'sportsmen.txt');
Rewrite(f);
Writeln(f,'---------------------');
Writeln(f,'|  Name  |  Result  |');
Writeln(f,'---------------------');
for i:=1 to 5 do
 Writeln(f,'|',x[i].name:8,'|',x[i].result:10,'|');
Writeln(f,'---------------------');
close(f);
Readln;
end.