Записи((надо доделать((

[diller89]

В группе определить средний балл после сессии и
Распечатать ФИО студентов,
направленных от завода.
Рассортировать студентов по возрастанию среднего балла.

uses crt;
  const n=4;   m=5;
  type rec=record
  fio:string[20];
  srb:real;
  oz:array[1..5] of byte;
  zav:char;
  end;

  var
  gr,gr1:array[1..n] of rec;a:rec; pr:boolean;
  i,j:integer; c:char; nm:byte;   buf:rec;
     begin

 read (gr[i].zav);    j:=0;
            for i:= 1 to n do begin
             if (gr[i].zav='Z') then inc(j);
             gr1[j]:=gr[i];
            end;





  for i:=1 to n do begin
      read(gr[i].fio);
         for j:=1 to m do begin

         read (gr[i].oz[j]);
         gr[i].srb:= gr[i].srb+gr[i].oz[j];
       end;
          gr[i].srb:= gr[i].srb/n;

          for i:=1   to nm do
           if gr[i].srb>gr[i+1].srb
            then begin
             buf :=gr[i];
             gr[i]:=gr[i+1];
             gr[i+1]:=buf; pr:=false;
             end;





           for i:=1 to n do
                  write(gr[i].fio);
                for j:=1 to m do
                  write ( gr[i].oz[j]:4,gr[i].srb:4:2);   writeln;
                  end;end.

[diller89]

кто нибудь сможет найти ошибку

[RUSt88]

а в чем у тебя проблемы? что делает неправильно?

[DoDge_VipeR]

nm - а это чему равно у тебя?

[diller89]

она ошибку как раз на nm выдает,
посмотрите ошибку плиз срочно надо

[diller89]

в принципе все вроде правильно но что то не идет