Курсовая для первого курса, спасайте или выгонять меня... Опции

[Floyd]

Приветсвую всех. Прошу помоч сделать мне курсовую.
Тут отксерино все мое задание

http://img185.echo.cx/img185/2035/11by.th.gif

Я тут новенький и очень надеюсь на вашу помощ, еще неделя и нужно сдавать, если не сдам выгонят. Буду жутко признателен тому кто поможет. А отплатить... единственное что могу, так это сделать аватар любой сложности...
З.Ы.Хотя сомневаюсь что это кому то нужно сдесь...

Я присоединил изображение...

Сообщение отредактировано: volvo - 7.05.2005 21:25

[Floyd]

Спасибо, я исправил текст вот так

uses crt;
type danni=record
  predmet:array [1..5] of string;
  Mark:array [1..5] of integer; end;
  studrec=record
   name:string;
   sub:danni; end;
   var student:array [1..8] of studrec;
       sub:array [1..5] of danni;
 am1:array [1..8] of string;   am:array [1..8] of string;
 k,s,i,n,f,r,j:integer; min:string;
 f2,f1:text;
   Begin
   assign (f2, 'dano.pas'); reset(f2);   assign(f1,'rez.pas');  rewrite(f1);
     n:=0;
    for i:=1 to 2 do begin s:=0;
    with student[i] do begin
     readln(f2, name);
      for k:=1 to 5 do begin
       with sub  do begin
        readln(f2,predmet[k]);
        readln(f2,mark[k]); end;
if student[i].sub.mark[k]=2 then begin
  s:=s+1;
  am1[s] := student[i].sub.predmet[k];
if s > 0 then begin
  writeln(f1, student[i].name); end;
  for j := 1 to s do writeln(f1, am1[j]);
  end; end; end; end;  close(f1);  end.

А выводит мне вот такое

Grisha
pr4
down
pr1
down
pr1
pr2
down
pr1
pr2
pr3
down
pr1
pr2
pr3
pr4
down
pr1
pr2
pr3
pr4
pr5

Где то неправильно закрыт цыкл... но вот где?