Правила форума
Eof.PASЯзык:
Русский
English
{Eof.PAS}
uses Crt, Dos;
var
F : Text;
Ch : Char;
begin
{ Получаем имя файла из командной строки }
Assign(F, ParamStr(1));
Reset(F);
while not EOF(F) do
begin
Read(F, Ch);
Write(Ch); { Выводим содержимое файла на экран }
end;
end.
var
F : Text;
Ch : Char;
begin
{ Получаем имя файла из командной строки }
Assign(F, ParamStr(1));
Reset(F);
while not EOF(F) do
begin
Read(F, Ch);
Write(Ch); { Выводим содержимое файла на экран }
end;
end.
::
::
::
