Создать файл=>обработать строки

Помогите пожалуйста, голова уже просто кипит %(((

Создать файл, содержащий произвольные строки. Обработать строки таким образом, чтобы между словами не было больше одного пробела и выполнить правое выравнивание строк файла. Обработанный текст записать в новый файл. Вывести на экран его содержимое.

Добавлено через 3 часа 25 минут
uses crt;
var f,f1:text;
chr:char;
begin
assign(f,'f.txt');
assign(f1, 'f1.txt');
reset (f);
rewrite (f1);
begin
while not (eof(f)) do
begin
while not (eoln(f)) do
begin
read(f,chr);
write(f1,chr);
if chr=' ' then
begin
repeat
read(f,chr)
until chr<>' ';
write(f1,chr);
end;
end;
readln (f);
writeln(f1);
end;
close(f);
end;
close(f1)
end.

программа рабочая, но не могу придумать как выровнять по правому краю и вывести на экран( помогиитееее...)

0