[Patrix]

Chmm zamysł z filozofia działania mialem mniej wiecej dobry wg Twojego
Z charami kombinowałem problem u mnie był bodaj z tym /while not eof/ bo to mi dalej nie działa, przepisałem Twojego /for/ i teraz wszystko gra


poprawione:

//--------------------------------------------------------------------
procedure przepisz;
 var    tmp:            file of char;
        plik:           file of char;
        znak:           char;
	i:		integer;


        begin
                assign(tmp,'filmy.tmp');
		assign(plik,'filmy.txt');

		reset(tmp);
		reset(plik);
		 seek(plik,filesize(plik));

		for i:=0 to filesize(tmp)-1 do
		        begin
		                read(tmp,znak);
		                write(plik,znak);
		        end;

		close(tmp);
		close(plik);


        end;
//--------------------------------------------------------------------

Jutro jeszcze pomyśle dlaczego mi ten while nie idzie...

Dzieki