program eoln_eof;
uses crt;
var
car: char;
begin
clrscr;
writeln ('introduci delle parole e termina con ^Z');
while (not Eof) do
begin
while (not Eoln) do
begin
read(car);
write(car)
end;
writeln;
readln;
writeln('');
writeln('');
writeln('introduci un'' altra parola')
end
end.