Программа для обработки текста не запускается

program Text_Format;
uses  ZCrt,TPcrt,Dos;
var          FI,FO: Text;
   ww,i,j,j1,k,m,c: integer;
          s1,s2,s3: string;
          fr,f1,f2: boolean;
 
{Скpоллеp области экpана ввеpх. Скипнут.}
procedure ROLL(x0,y0,wx,wy:byte);begin Assembler;
 
procedure EQ(var s1,s2:string);
begin
    m:=1; while s1[m]=' ' do inc(m);                   {String' Left Bourder}
    while POS('  ',s1)>m do Delete(s1,POS('  ',s1),1); {Compress spaces}
    k:=length(s1);          {Вычисляем Стpоку, вписывающуюся в нужную шиpину}
    while (k>60) or ((s1[k]<>' ')and(s1[k]<>'─')) do dec(k);
    s2:=Copy(s1,k+1,length(s1));                       {THis!}
    while s1[k]=' ' do dec(k);
    if k=0 then k:=length(s1);  s1:=copy(s1,1,k);
    k:=m; c:=1;
    while (length(s1)<60)and(c<60) do
    begin
       while (s1[k]<>' ') and (k<length(s1)) do inc(k);
       if k=length(s1) then k:=m;
       if s1[k]=' ' then Insert(' ',s1,k);
       while ((s1[k]=' ')or(s1[k]=' ')) and (k<length(s1)) do inc(k);
       inc(c);
    end;
end;
 
procedure WR(s:string);
begin  writeln(FO,s); Roll(ww,2,60,21); at(ww,23,7,s); inc(j1); end;
 
BEGIN
    if paramcount<1 then
    begin
       writeln(' USAGE: F260 <Name>      Name - unformated text file');
       writeln(' Convert text strings down to width of 60 characters.');
       halt;
    end;
 
    Assign(  FI,Paramstr(1)  );
    Assign(  FO,  Copy(Paramstr(1),1, POS('.',Paramstr(1)))+'cnv'  );
    {$I-}  Reset(FI);  Rewrite(FO);  {$I+}
    if IOResult<>0 then begin writeln('I/O Error'); HALT; end;
    TextColor(7); TextBackground(4); clrscr;
    AT(11,1,15,'CREATED:'+Copy(Paramstr(1),1, POS('.',Paramstr(1)))+'OUT' );
    ww:=10;  for i:=3 to 23 do AT(ww,i,7,spc(60));
    TextBackground(0);
    s1:='';  s2:='';  s3:='';  j:=0; j1:=0;
    TextBackground(4);  AT(71,10,7,'    LINES'); AT(71,11,7,' IN:');
AT(71,12,7,'OUT:'); AT(71,13,7,'ADD:');    TextBackground(0);
 
    REPEAT
      TextBackground(4); TextColor(15);
      gotoXY(75,11); write(j);
      gotoXY(75,12); write(j1);
      gotoXY(75,13); write(j1-j);
      inc(j); f1:=FALSE; f2:=FALSE;
      readln(FI,s1);
      k:=1;
      while (s1[k]=' ')and(k<length(s1)) do inc(k);
      if k=length(s1) then f1:=TRUE;   {Empty line}
 
      if (s1[1]=' ') or F1
      then begin
             if s2<>'' then begin      {Пустая стpока или абзац}
                              WR(s2);
                              s2:='';
                            end;
           end
      else begin     {Попытка отлова стpок типа '──────...────' ;) }
             if s2[length(s2)]='-'
             then s1:=copy(s2,1,length(s2)-1)+s1
             else if s2<>'' then s1:=s2+' '+s1;
           end;
 
      s2:='';
      if length(s1)>60 then EQ(s1,s2);
      WR(s1);
      while length(s2)>60 do
      begin s3:=''; EQ(s2,s3); WR(s2); s2:=s3; end;
    UNTIL (EOF(FI)) ;
 
    TextBackground(0);
    for i:=1 to 22 do begin Roll(ww,2,60,21); delay(200); end;
    AT(ww+20,20,31,'TEXT CONVERTING DONE');
    close(FI);  close(FO);
    wait; TextColor(7); TextBackground(0); clrscr;
end.