Форум для программистов, программируем с умом

uses crt,graphabc;
var f:text; c:char; n,k:integer;
s:string;
begin assign(f,'zhurnal.txt');
reset(f);
begin
setwindowsize(800,700);
Hidecursor;
SetBrushStyle(bsclear);
SetFontStyle(fsBoldItalic);
SetFontName('Monotype Corsiva');
setfontsize(15);
setfontcolor(clwhite);
n:=loadpicture('êàðòèíêè/img36.jpg');
drawpicture(n,0,0);
k:=0;
setfontsize(20);
while not(eof(f)) do
begin
readln(f,s);
textout(100,20+k,s); k:=k+20;
end;
close(f);end;
end.