Stuff

Program Teksto_tvarkymas;
    var
	duomenys, rezultatai: text;
	e: string;
        c,c1:char;
	fvardas: string [24];
	sk, t: set of char; 
	i: integer;
    begin
	sk:= [':', ',', '.', ';', '?', '!'];
	t:= [' '];
	WriteLn( 'Nurodykite failo vardą');
	ReadLn(fvardas);
	Assign(duomenys, fvardas);
	Reset(duomenys);
	Assign(rezultatai, 'rezultatai.txt');
	Rewrite(rezultatai);
	i:= 1;	
while not EoF(duomenys) do begin
		read(duomenys, c);
if (c in t) and (c1 in t) then else write(rezultatai, c);
If (c in sk) then Write(rezultatai, c,' ');
if (c in t) then c1:=' ' else c1:='0';
		end;
   	
   	Close(duomenys);
	Close(rezultatai);
	ReadLn;
    end.