home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / Chip_1999-09_cd.bin / ctenari / Trejbal / TRELL.PAK / SOURCE / ERSD.EXE / TOMAS.PAS < prev    next >
Pascal/Delphi Source File  |  1998-11-25  |  741b  |  50 lines
  1. uses dos,crt,slova,matika;
  2.  
  3. var i,j,k,l,m,n,o : integer;
  4.     suma,skl2,kat2,skl,kat,radk,rad,kus,celk,sfs : string;
  5.     aa,bb,cc,ee,ff,gg:text;
  6.     znak:char;
  7.  
  8.  
  9. procedure ochrana;
  10. begin
  11.  reset(aa);
  12.  rewrite(bb);
  13.  while not(eof(aa)) do
  14.  begin
  15.   readln(aa,rad);
  16.   if not(rad=chr(12)) then writeln(bb,rad);
  17.  end;
  18.  close(aa);
  19.  close(bb);
  20.  
  21.  reset(bb);
  22.  rewrite(aa);
  23.  while not(eof(bb)) do
  24.  begin
  25.   readln(bb,rad);
  26.   kus:='';
  27.   for i:=1 to ord(rad[0]) do
  28.   begin
  29.     if not(rad[i]=chr(12)) then kus:=kus+rad[i];
  30.   end;
  31.   writeln(aa,kus);
  32.  end;
  33.  close(aa);
  34.  close(bb);
  35.  erase(bb);
  36.  
  37. end;  { konec procedury }
  38.  
  39.  
  40. begin
  41.  
  42.   assign(aa,'C:\trell\convert.dll');
  43.   assign(bb,'terry_01');
  44.  
  45.   ochrana;
  46.  
  47. end.
  48.  
  49.  
  50.