работа текстовым файлом

[erorai 1990]

Дан текстовый файл F. Длина каждой строки не превосходит 80 символов. Дополнить короткие строки справа символом '.' так, чтобы их длина была 80. помогите пожалуйста

[Zer0]

все ведь не так сложно - считываете строку и пока ее длина не станет равной 80 в цикле с предусловием добавляете в конец строки точку
Код на паскале (ибо язык Вы не указали):

var f:text; s:string;

begin
assign(f,'text.txt');
reset(f);
while not eof(f) do begin
 readln (f,s);
 while length(s)<80 do s:=s+'.';
 writeln(S);
end;
close(f);
readln;
end.

[erorai 1990]

большое спасибо