[Patrix]

Chmm a kto mi wytłumaczy co tu jest źle...
Miałem tutaj zamiar skopiować zawartość tymczasowego pliku 'filmy.tmp' do 'filmy.txt' nie nadpisujac tego drugiego (poprostu dopisać)...

//--------------------------------------------------------------------
procedure przepisz;
 var    tmp:            text;
        plik:           file of film_r;
        znak:           char;

        begin
                assign(tmp,'filmy.tmp');
                reset(tmp);

                while not eof(tmp) do
                        begin
                           read(tmp,znak);

                                assign(plik,'filmy.txt');
                                reset(plik);
                                seek(plik,filesize(plik));

                                write(znak);

                                close(plik);
                        end;
                close(tmp);
        end;
//--------------------------------------------------------------------