uses crt,dos; var fi1,fi2 :text; st,ll :string; le,chk,count :integer; file1,file2 :string; ch :char; nowy :integer; function stp(st:string;le:integer):string; begin while length(st) FILL sourcefile targetfile count'); halt; end else val(ll,le,chk); assign(fi1,file1); {$i-}reset(fi1);{$i+} if ioresult<>0 then begin writeln('Sourcefile not found'); halt; end; assign(fi2,file2); rewrite(fi2); writeln('Source file:',file1); writeln('Target file:',file2); writeln('Char Length:',le); writeln; write ('Process :',count:5); nowy:=wherey; repeat count:=count+1; gotoxy(13,nowy);write(count:5); readln(fi1,st); gotoxy(1,15); writeln('':70); writeln('':70); {$i-} writeln(fi2,stp(st,le));{$i+} while ioresult<>0 do begin gotoxy(1,15); writeln(^G'Print is ready...'); write ('Continue ?[Y/n] '); ch:=readkey; ch:=upcase(ch); if ch='N' then exit; {$i-} writeln(fi2,stp(st,le));{$i+} end; until eof(fi1); close(fi1);close(fi2); writeln; writeln('end.') end.