alex1989,
считываем строчку str из файла
while length(str)<80 do
str:=str+'.';

работу с файлом описывать не буду, а то совсем не интересно

Гы,
Во-первых, как написать одну строчку кода разницы нет - меньше она не станет (хотя вызов процедуры происходит дольше), а во-вторых вопрошателю, насколько я понял, надо предельно просто, чтобы в голове осталась полезная информация, а не каша.

alex1989,

Естественно, ты используешь rewrite, который создает и открывает созданный файл, а надо использовать reset, более того ты ничего из файла не читаешь

program tochki;

var
str: string[80];
f2,ftemp:text;

begin
assign(f2, 'c:\test.txt');
assign(ftemp, 'c:\test1.txt');
reset(f2);
rewrite(ftemp);
while not eof(f2) do
begin
readln(f2, str);
while length(str) < 80 do
str:=str+'.';
writeln(ftemp, str);
end;
close(f2);
erase(f2);
rename(ftemp, 'c:\test.txt');
close(ftemp);
end.

возможно не самый оптимальный код (давно с файлами не работал), но работает.
Вообще, такие вещи надо изучать самому.

alex1989,

не надо злоупотреблять добротой участников форума, это задачки для начинающих программистов - посиди ночку с книжкой и, если захочешь, то поймешь.

ПрограмёрDmitryFedotovalex1989,

Естественно, ты используешь rewrite, который создает и открывает созданный файл, а надо использовать reset, более того ты ничего из файла не читаешь

program tochki;

var
str: string[80];
f2,ftemp:text;

begin
assign(f2, 'c:\test.txt');
assign(ftemp, 'c:\test1.txt');
reset(f2);
rewrite(ftemp);
while not eof(f2) do
begin
readln(f2, str);
while length(str) < 80 do
str:=str+'.';
writeln(ftemp, str);
end;
close(f2);
erase(f2);
rename(ftemp, 'c:\test.txt');
close(ftemp);
end.

возможно не самый оптимальный код (давно с файлами не работал), но работает.
Вообще, такие вещи надо изучать самому.

))) как-то странно... Код почти идентичен тому что дал я (то есть смысл было его переписывать?), да ещё и не рабочий )))) (по крайней мере у меня, но не думаю что только у меня). Команду rename(ftemp, 'c:\test.txt'); можно использовать только после закрытия файла ))


1. Я и не переписывал, просто пока оформлял ответ, добавились другие (не обновил страницу)
2. У меня все прекрасно отрабатывает.