Задача на записи - найти максимальный номер зачетки

[Tancor48]

подскажите что и куда надо дописать в этой программе что бы она высчитывала максимальный номер зачетки

 program neo;
  uses crt;
  type
  trecord = record
               name:string;
               fam:string;
               otch:string;
               nzk:integer;
               sb:real;
               kurs:integer;
            end;
   tgruppa=array [1..10] of trecord;
 var
 i,n:integer;
   student:trecord;
   gruppa: tgruppa;
    begin
    writeln('vvedite kol-vo studentov');
    readln(n);
   for i:=1 to n do
     begin
   writeln('vvedite name',i,'studenta:');
   readln(gruppa[i].name);
    writeln('vvedite fam');
   readln(gruppa[i].fam);
   writeln('ўўҐ¤ЁвҐ ®взҐбвў®');
    readln(gruppa[i].otch);
    writeln('ўўҐ¤ЁвҐ *®¬Ґа §*зҐв*®© Є*Ё¦ЄЁ');
    readln(gruppa[i].nzk);
      writeln('ўўҐ¤ЁвҐ б।*Ё© Ў*«');
    readln(gruppa[i].sb);
      writeln('ўўҐ¤ЁвҐ *®¬Ґа Єгаб*');
    readln(gruppa[i].kurs);
   end;
   writeln('studenty starshe 3 kursa');
   for i:=1 to n do
      begin
        if gruppa[i].kurs>3 then
            writeln(gruppa[i].fam);
       end;
    readkey;
    end.

Посмотрите программу и подправьте по возможности, пожалуйста.





___________
1) Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться.

2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Не забывайте об этом!

Модератор.

[Nikita++]

Для начала оформи так, чтобы было видно - что на каком уровне

[Tancor48]

а без этого не как?

[Tancor48]

мне всего лишь надо что бы эту программу слегка отредактировали