Курсовая , тестовая программа .

[Spiker01]

Здраствуйте. Я пишу курсовую на тему "Работа с файлами в Паскале".
Помогите составить блок схему к программе. Также мне надо описать для чего служит каждая переменная в разделе описаний.Мой I-C-Q 1*1*7*8*8*8*9 без звёзд ).Вот программа :
Program testing;
uses crt;
var
fil,otvet,obr:text;
name,s,st:string;
kol,i:integer;
otv:1..3;
begin
clrscr;
writeln('Vas privetstvuet yniversalnaia programma testirovania');
write(' Vvedite pyt k faily s testovimi voprosami i nazhmite ENTER -> ');
readln(name);
writeln;
clrscr;
assign(fil,name);
reset(fil);
assign(otvet,'e:\otvet.txt');
rewrite(otvet);
while not eof(fil) do
begin
for i:=1 to 4 do
begin
readln(fil,s);
writeln(s);
end;
writeln;
write(' Vash otvet -> ');
readln(otv);
writeln(otvet,otv);
delay(60000);
clrscr;
end;
close(fil);
reset(otvet);
kol:=100;
assign(obr,'e:\obrazec.txt');
reset(obr);
while not eof(obr) do
begin
readln(otvet,s);
readln(obr,st);
if s<>st then kol:=kol-1;
end;
writeln(' Vasha otsenka ');
case kol of
99..100:write(' OTJIU4HO ');
80..98:write(' XOPOIIIO ');
60..79:write(' YgoBJIuTBOPUTeJIHO ');
0..59:write(' IIJIOXO ');
end;
close(obr);
close(otvet);
readln;
end.

[Spiker01]

Спасибо всем кто постучал мне в асю.)