{ project6.lpr
  Автор: <Фамилия И.О.>, группа <группа>
  Дата: <дата, чч/мм/гг>
  Учебная программа.    }

Program Typer;

procedure TypeFile(FName: String);
  { Выдача содержимого файла с именем FName на экран. }
var
  F: Text;
  S: String;
begin
  Assign(F, FName);
  Reset(F);
  while not Eof(F) do
  begin
    ReadLn(F, S);
    WriteLn(S);
  end;
end;

const
  MyFile = 'project15.lpr';

begin
  WriteLn('Печать файла ', MyFile, ' на экран.');
  TypeFile(MyFile);
  ReadLn;
end.