Легкий вопрос, сорри ;) работа с файлами

[Чапаев]

Дарофф!
Очень давно не писал, посему вопрос вот какой.
Совсем забыл как работать с файлами, помню только то, что файл=переменная.
так вот, никто не приведет кусочек кода, как из файла считать первую строку и присвоить ее переменной.
Мне бы только вспомнить, а с остальным сам разебрусь

[AShen]

{пример для классического паскаля}
var f: file of char; {объявляем символьный файл}
i: char;
begin
open(f); {открываем файл f}
readln(f, i); {чиаетм из файла f символ в переменную i}
writeln(i); {выводим на экран значение переменной i}
close(f); {закрывем файл}
end;

[SovNarKom]

var
MyFile: TextFile;
str: String;

begin
AssignFile(MyFile,'myfile.txt');
Reset(MyFile);
ReadLn(MyFile,str);
CloseFile(MyFile);
end;

[Guest]

Гы... пасиб
прям децтво вспомнилось