Вывод текста

reset(f);
while not Eof(f) do
  begin
    count:=0;
    while (not Eof(f)) and (count<=25) do
      begin
        Inc(count);
        readln(f,Line);
        writeln(Line);
      end;
    repeat
    until KeyPressed
  end;
close(f);

program text;
f:text;
Put:string;
s:string;
begin
put:='c:\text.txt';
assing(f,put);
reset(f);
begin
while not eof(f) do
readln(f,s);
end;
close(f);
readln;
end.

reset(f);
while not eof(f) do
 begin
  readln(f,s);
  writeln(s);
 end;
close(f);

writeln(s);

 begin
  readln(f,s);
  convert(s);
  writeln(s);
 end;

program textFile;
procedure convert(var s:string);
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;
var
   f:text;
   Put:string;
   s:string;
   count: integer;
begin
    Put:='C:\skva.txt';
    assign(f,Put);
    reset(f);
    while not Eof(f) do
    begin
    count:=0;
    while(not eof(f)) and (count<=25) do
    begin
    Inc(count);
    readln(f,s);
    convert(s);
    writeln(s);
end;
repeat
until KeyPressed;
end;
    close(f);
    readln;
end.
Что не так?

program textFile;
uses crt;
procedure convert(var s:string);
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;
var
   f:text;
   Put:string;
   s:string;
   count: integer;
begin
    Put:='file1.txt';
    assign(f,Put);
    reset(f);
    count:=0;
    while not Eof(f) do
     begin
      Inc(count);
      readln(f,s);
      convert(s);
      writeln(s);
      if count mod 24=0 then
       begin
        write('Нажмите Enter для продолжения...');
        readln
       end;
     end;
    close(f);
    readln;
end.

repeat
    until KeyPressed

readkey;

readln;

repeat
clrscr;
writeln('Выберите действие:');
writeln('1-cоздать новый файл');
writeln('2-добавить запись');
writeln('3-редактировать запись');
writeln('4-удалить запись');
writeln('5-прочитать файл');
writeln('6-поиск по фамилии');
writeln('7-поиск по виду продукции');
writeln('другое-выход');
readln(w);
case w of
'1':NewFile(f);
'2':AddZap(f);
'3':RedZap(f,b);
'4':DelZap(f,b);
'5':ReadFile(f,b);
'6':PoiskFam(f,b);
'7':PoiskProd(f,b);
else exit;
end;
until not(w in ['1'..'7']);
end.

program Lab_2;
Uses Crt;
procedure convert(var s:string);
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;
var
   f:text;
   Put:string;
   s:string;
   count: integer;
   w:integer
begin
repeat
writeln('1.Документ');
readln(w);
case w of
1:Put:='C:\skva.txt';
    assign(f,Put);
    reset(f);
    while not Eof(f) do
    begin
    count:=0;
    while(not eof(f)) and (count<=10) do
    begin
    Inc(count);
    readln(f,s);
    convert(s);
    writeln(s);
end;
readKey;
end;
    close(f);
    readln;
end.