паскаль

[triple A]

нужна процедура вывода текста програмы из файла *.pas на екран.

[unbanned]

считай что это текстовый файл....

assign(f,'*.pas');
reset(f);
while not eof(f) do begin
readln(f,s);
writeln(s);
end;
close(f);

[Сtrl]

procedure PrintTextFile(FileName: string; Extension: string = 'txt');
var
  F: TextFile;
  Buffer: string;
begin
  Assign(F, FileName + '.' + Extension);
  Reset(F);
  while not eof(F) do
  begin
    Readln(F, Buffer);
    Writeln(Buffer);
  end;
  Close(F);
end;