Программа

PROCEDURE Change(InputFileName,OutputFileName:String);
  Var InputFile,OutputFile:text;  { Файловые переменные }
      Buf:string[80];             { Буферная переменная }
  Begin
    { Связывание файловых переменных: }
    Assign(InputFile,InputFileName);
    Assign(OutputFile,OutputFileName);
    Reset(InputFile);      { Открытие файла для чтения }
    Rewrite(OutputFile);   { Открытие файла для записи }
    while not EOF(InputFile) do  { Цикл форирования файла }
      begin
        ReadLn(InputFile,Buf); { Чтение строки из файла }
        while Length(Buf)<80 do Buf:=Buf+' ';
        { Пока длина строки меньше 80 символов - дополнять строку пробелами }
        WriteLn(OutputFile,Buf) { Запись строки в файл }
      end;
    Close(InputFile);    { Закрытие файла }
    Close(OutputFile);   { Закрытие файла }
  End;
BEGIN
  Change('F','F80')
END.