wejscie wyjscie

program project1;

var
  wejscie, wyjscie : Text;
  slowo : string;
  i : integer;

begin
  // otwarcie pliku do zapisu
  AssignFile(wejscie, 'dane.txt');
  Rewrite(wejscie);

  for  i:=0 to 3 do
  begin
    Readln(slowo);
    Writeln(wejscie, slowo);
  end;
  // zamkniecie pliku                            wrtieln('dddd');
  CloseFile (wejscie);

  // ponowne otwarcie do odczytywania
  AssignFile(wejscie, 'dane.txt');
  Reset(wejscie);
  // otwarcie pliku nowego do przepisanai
  AssignFile(wyjscie, 'temp.txt');
  Rewrite(wyjscie);
  // przepisywanie
  for i:=0 to 3 do
  begin
    Readln(wejscie, slowo);
    Writeln(wyjscie, slowo);
  end;
  //zamkniecie plików, bez tego nie zapisze zmian
  CloseFile(wejscie);
  CloseFile(wyjscie);

  writeln('Nacisnij aby zakonczyc');
  readln();
end.