{ Program si vyzada zadani nazvu dvou souboru, pokud je u kterehokoliv z nich
  zadan prazdny retezec, skonci.
  Potom oba soubory otevre, prvni pro cteni, druhy pro zapis, a potom
  zkopiruje obsah prvniho souboru do druheho.
  Nakonec vypise hlaseni s informaci, kolik bylo skutecne precteno a jaka
  je velikost obou souboru. }

program kopirovani;

uses
  crt;

const
  MAX = 1000;

var
  f1, f2: file;               { netypove soubory, protoze pri kopirovani
                                na typu obsahu nezalezi }
  s1, s2: string;             { retezce pro nazvy souboru }
  pole: array[1..MAX] of char;{ do tohoto pole budeme nacitat kopirovana data }
  precteno, zapsano: word;    { kolik Bytu bylo skutecne precteno a zapsano }
  celkem: word;               { zde postupne pricitame skutecne prectene Byty }


procedure Init;
{ inicializace programu, vymalujeme par okynek na obrazovku }
begin
  window(1,1,80,3);
  textbackground(blue);
  textcolor(yellow);
  clrscr;
  writeln;
  write('                         Program pro kopirovani souboru');

  window(1,4,80,25);
  textbackground(black);
  textcolor(yellow);
  clrscr;
  writeln;
end;

procedure Done;
{ uklid obrazovky po skonceni prace programu }
begin
  window(1,1,80,25);
  textbackground(black);
  textcolor(lightgray);
  clrscr;
end;

procedure OtevriSoubory;
{ procedura nacte nazvy souboru a otevre je, prvni pro cteni, druhy pro zapis }
begin
  ...
end;


begin { hlavni program }
  Init;
  OtevriSoubory;
  celkem := 0;

  ...

  Done;
end.