home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / Chip_1999-09_cd.bin / ctenari / Trejbal / TRELL.PAK / SOURCE / ERSD.EXE / KAM_LAT.PAS < prev    next >
Pascal/Delphi Source File  |  1998-02-25  |  582b  |  37 lines
  1. uses dos,crt,slova;
  2.  
  3. var sfs,a: string;
  4.     aa,bb:text;
  5.     i,j,k,l : integer;
  6.     znak : char;
  7.  
  8. begin             { NA ZKOUSKU }
  9. sfs:=fsearch('c:\trell\convert.dll',GetEnv('path'));
  10. if not(sfs='') then
  11. begin
  12.  
  13.  assign(aa,'c:\trell\convert.dll');
  14.  assign(bb,'kopanec');
  15.  rewrite(bb);
  16.  reset(aa);
  17.  while not(eof(aa)) do
  18.  begin
  19.   readln(aa,a);
  20.   a:=kam_lat(a);
  21.   writeln(bb,a);
  22.  end;
  23.  close(bb);
  24.  close(aa);
  25.  rewrite(aa);
  26.  reset(bb);
  27.  while not(eof(bb)) do
  28.  begin
  29.   readln(bb,a);
  30.   writeln(aa,a);
  31.  end;
  32.  close(bb);
  33.  close(aa);
  34.  erase(bb);
  35.  
  36. end;
  37. end.