Ennek meg mi a baja?

A piros csík állandóan a f:text;-nél akad meg és nem tudok tovább menni a programmal ha ez a rész nincs meg.

procedure TForm1.Button4Click(Sender: TObject);

var

s:string;

f:text;

begin

Assign(f, 'otoslotto.txt')

Reset(f);

while not eof(f) do

readln(f,s);

Close(f);

ListBox1.Items.Add(s);

end;

[Error] LottoUnit1.dpr(39): Constant or type identifier expected

[Error] LottoUnit1.dpr(41): Too many actual parameters

[Error] LottoUnit1.dpr(42): Missing operator or semicolon

[Error] LottoUnit1.dpr(43): Incompatible types

[Error] LottoUnit1.dpr(45): Too many actual parameters

[Fatal Error] LottoProject1.dpr(5): Could not compile used unit 'LottoUnit1.dpr'