Для созданного текста определить длину содержащейся в нем максимальной серии символов, отличных от букв.

[rusfin01]

Посмотрите! Помогите исправить где есть ошибки, буду очень благодарен) Вот что написал:

 uses crt;
var f1, f2: text;
k, n:array[1..50] of integer;
ch:char;
mn1, mn2:set of char;
ks, nst, i, j:integer;
t:string;

procedure VIV_FIL(var f:text; t:string);
begin
  reset(f);
  writeln;
  writeln(t);
  while not eof(f) do
    begin readln(f,t);
          writeln(t);
    end;
end;
procedure SWAP (var x,y:integer);
var c:integer;
begin
c:=x;
x:=y;
y:=c
end;
BEGIN
  assign(f1,'f1lab28.txt');
  assign(f2,'f2lab28.txt');
  {$I-} reset(f1);{$I+}
  if IOresult<>0 then
    begin writeln('sozdai fail');
          readkey;
          exit
    end
  else
    begin
      mn1:=['A'..'Z'];
      mn2:=['0'..'9', '!', '?', '.', ',', ' '];
    nst:=0;
    while not seekeof(f1) do
      begin
      ks:=0;
      inc(nst);
      while not seekeoln(f1) do
       begin
         read(f1, ch);
         if ch in mn2 then inc(ks);
       end;
      k[nst]:=ks;
      n[nst]:=nst;
      readln(f1);
      end;
     i:=1;
     while i<nst do
     begin
     if k[i]>k[i+1] then
     begin
     swap(k[i],k[i+1]);
     swap(n[i],n[i+1]);
     if i>1 then dec(i);
     end
     else inc(i);
     end;
    rewrite(f2);
    for i:=1 to nst do
     begin reset(f1);
       for j:=1 to n[i] do
       readln(f1,t);
       writeln(f2,t);
     end;
  VIV_FIL(f1,'fail f1');
  VIV_FIL(f2,'fail f2');
end;
close(f1);
close(f2);
readkey;
END.

[phomm]

поглядел.

что-то не въехал во все эти одноликие безымянные переменные, но уловил вот какую штуку:
inc(nst); выполняется всего один раз
правда я хз , где мне взять твой файл ввода, будь добр в следующий раз выкладывай таковой, или вообще весь проект, я сделал псевдорандомный fill величинами от 48('0') до 126('~') с помощью винхекса

в итоге условие while i<nst не выполняется никогда, я получил идентичный файл выхода (идентичный файлу входа), кроме добавленного в конец 0D0A