Как в паскале строке в текстовом файле задать переменную? заранее спасибо.

Пусть имеется текстовый файл: Program, begin, end procedure, function Программа, которая прочитает строки из этого файлы и выведет их на экран: var t:text; s1,s2:string; begin assign(t,'Myfile.txt'); reset(t); readln(t,s1); writeln(s1); readln(t,s2); writeln(s2); close(t); end.