Обработать данные результатов соревнований по бегу

uses crt;
{процедуры преобразования русского текста из файла .txt в программу и обратно}
procedure Convert(var s:string);
{ANSI -> ASCII}
var i:integer;
begin
for i:=1 to length(s) do
if ord(s[i]) in [192..239] then s[i]:=chr(ord(s[i])-64)
else if ord(s[i]) in [240..255] then s[i]:=chr(ord(s[i])-16)
else if ord(s[i])=168 then s[i]:=chr(ord(240))
else if ord(s[i])=184 then s[i]:=chr(ord(241));
end;
procedure Convert1(var a:string);{ASCII->ANSI}
var i:integer;
begin
for i:=1 to length(a) do
if ord(a[i]) in [128..175] then a[i]:=chr(ord(a[i])+64)
else if ord(a[i]) in [224..239] then a[i]:=chr(ord(a[i])+16)
else if ord(a[i])=240 then a[i]:=chr(ord(168))
else if ord(a[i])=241 then a[i]:=chr(ord(184));
end;
var f,g:text;
    s,ss,s1,s2,s3,sm1,sm2,sm3:string;
    a,b,c,mn1,mn2,mn3:real;
    cd:integer;
begin
clrscr;
assign(f,'input.txt');
reset(f);
writeln('----------------------------------');
writeln('|      Фамилия       | Результат |');
writeln('----------------------------------');
{прочитаем первые три, определим мин1,мин2,мин3}
readln(f,s);
s1:=copy(s,1,pos(',',s)-1);
Convert(s1);
delete(s,1,pos(',',s));
val(s,a,cd);
gotoXY(1,wherey);write('| ',s1);
gotoXY(22,wherey);write('|',a:7:2);
gotoXY(34,whereY);writeln('|');
readln(f,s);
s2:=copy(s,1,pos(',',s)-1);
Convert(s2);
delete(s,1,pos(',',s));
val(s,b,cd);
gotoXY(1,wherey);write('| ',s2);
gotoXY(22,wherey);write('|',b:7:2);
gotoXY(34,whereY);writeln('|');
readln(f,s);
s3:=copy(s,1,pos(',',s)-1);
Convert(s3);
delete(s,1,pos(',',s));
val(s,c,cd);
{выведем в таблицу}
gotoXY(1,wherey);write('| ',s3);
gotoXY(22,wherey);write('|',c:7:2);
gotoXY(34,whereY);writeln('|');
{найдем 1,2,3 мининимальный}
if a<b then
 begin
  mn1:=a;
  sm1:=s1;
  mn2:=b;
  sm2:=s2
 end
else
 begin
  mn1:=b;
  sm1:=s2;
  mn2:=a;
  sm2:=s1
 end;
if c<mn1 then
 begin
  mn3:=mn2;
  sm3:=sm2;
  mn2:=mn1;
  sm2:=sm1;
  mn1:=c;
  sm1:=s3;
 end
else if c<mn2 then
 begin
  mn3:=mn2;
  sm3:=sm2;
  mn2:=c;
  sm2:=s3
 end
else
 begin
  mn3:=c;
  sm3:=s3
 end;
{прочитаем остальные строки}
while not eof(f) do
 begin
  readln(f,s);
  ss:=copy(s,1,pos(',',s)-1);
  Convert(ss);
  delete(s,1,pos(',',s));
  val(s,c,cd);
  gotoXY(1,wherey);write('| ',ss);
  gotoXY(22,wherey);write('|',c:7:2);
  gotoXY(34,whereY);writeln('|');
  {найдем среди них 1,2,3 мин, если есть меньше первых 3х}
  if c<mn1 then
   begin
    mn3:=mn2;
    sm3:=sm2;
    mn2:=mn1;
    sm2:=sm1;
    mn1:=c;
    sm1:=ss;
   end
  else if c<mn2 then
   begin
    mn3:=mn2;
    sm3:=sm2;
    mn2:=c;
    sm2:=ss
   end
  else
   begin
    mn3:=c;
    sm3:=ss
   end;
 end;
{выведем первые 3 минимальных}
writeln('----------------------------------');
writeln('Призеры:');
writeln('----------------------------------');
writeln('|      Фамилия       | Результат |');
writeln('----------------------------------');
gotoXY(1,wherey);write('| ',sm1);
gotoXY(22,wherey);write('|',mn1:7:2);
gotoXY(34,whereY);writeln('|');
gotoXY(1,wherey);write('| ',sm2);
gotoXY(22,wherey);write('|',mn2:7:2);
gotoXY(34,whereY);writeln('|');
gotoXY(1,wherey);write('| ',sm3);
gotoXY(22,wherey);write('|',mn3:7:2);
gotoXY(34,whereY);writeln('|');
writeln('----------------------------------');
close(f);
assign(f,'output.txt');
rewrite(f);
Convert1(sm1);
Convert1(sm2);
Convert1(sm3);
writeln(f,sm1,',',mn1:0:2);
writeln(f,sm2,',',mn2:0:2);
writeln(f,sm3,',',mn3:0:2);
close(f);
writeln('Призеры записаны в файл output.pas');
readln
end.