Строки "обработка записей"

uses crt;
const n=3;
      m=4;
type
stud=record
    fio:string[12];
    bal:byte;
    end;
grup=record
    naz:string[5];
    otl:byte;
    std:array[1..m] of stud;
    srb:real;
    end;
var gr:array[1..n] of grup;
    i,j,k:byte;
    x:grup;
begin
clrscr;
writeln('Введите данные о студентах:');
for i:=1 to n do
 begin
  writeln('Группа ',i);
  repeat
  write(' Название из 5 символов: ');readln(gr[i].naz);
  until length(gr[i].naz)=5;
  gr[i].srb:=0;gr[i].otl:=0;
  for j:=1 to m do
   begin
    write(' Фамилия И.О.: ');readln(gr[i].std[j].fio);
    repeat
    write(' Балл (2-5): ');readln(gr[i].std[j].bal);
    until gr[i].std[j].bal in [2..5];
    if gr[i].std[j].bal=5 then gr[i].otl:=gr[i].otl+1;
    gr[i].srb:=gr[i].srb+gr[i].std[j].bal;
   end;
  gr[i].srb:=gr[i].srb/m;
 end;
clrscr;
for i:=1 to n-1 do
for j:=i+1 to n do
if gr[i].otl<gr[j].otl then
   begin
    x:=gr[i];
    gr[i]:=gr[j];
    gr[j]:=x;
   end;
writeln('----------------------------------------------------');
writeln('| Группа  |    Ф.И.О.   | Баллы | Кол.отл. | Место |');
writeln('|---------|-------------|-------|----------|-------|');
for i:=1 to n do
 begin
  gotoxy(1,wherey);
  write('| ',gr[i].naz);
  gotoxy(11,wherey);
  write('| ',gr[i].std[1].fio);
  gotoxy(25,wherey);
  write('|   ',gr[i].std[1].bal);
  gotoxy(33,wherey);
  write('|');
  gotoxy(52,wherey);
  writeln('|');
  for j:=2 to m do
   begin
    gotoxy(1,wherey);
    write('|');
    gotoxy(11,wherey);
    write('| ',gr[i].std[j].fio);
    gotoxy(25,wherey);
    write('|   ',gr[i].std[j].bal);
    gotoxy(33,wherey);
    write('|');
    gotoxy(52,wherey);
    writeln('|');
   end;
  writeln('|---------|-------------|-------|----------|-------|');
  write('|Ср. балл |');
  gotoxy(25,wherey);
  write('| ',gr[i].srb:0:2);
  gotoxy(33,wherey);
  write('|    ',gr[i].otl);
  gotoxy(44,wherey);
  write('|   ',i);
  gotoxy(52,wherey);
  writeln('|');
  writeln('|---------|-------------|-------|----------|-------|');
 end;
readln
end.