Составление программы с комбинированными типами данных (записи)

program s;
uses crt;
const words=['А'..'я'];
type konf=record
Surname:string;
Class:integer;
Theme:string;
end;
var pupil:array[1..4] of konf;
n,i,k,j,m:integer;
begin
clrscr;
for i:=1 to 4 do begin
Writeln ('Введите данные ',i,'-ого ученика');
repeat
k:=0;
Writeln ('Введите фамилию');
readln (pupil[i].surname);
for j:=1 to length(pupil[i].surname) do
if not(pupil[i].surname[j] in words) then k:=1;
if k=1 then writeln ('Используйте только буквы!');
until k=0;
Repeat
Writeln ('Введите класс');
readln (pupil[i].class);
If (pupil[i].class<=0) or (pupil[i].class>=12) then
Writeln ('Ошибка! Введите класс от 1 до 11')
Until (pupil[i].class>0) and (pupil[i].class<12);
writeln ('Введите тему');
readln (pupil[i].theme);
end;
writeln;
Writeln (' №  Фамилия      Класс    Тема');
for i:=1 to 4 do
with pupil[i] do
writeln ('[',i,']',surname:3, class:10, theme:10);
Writeln;
Writeln ('Введите класс');
Readln (m);
Writeln;
Writeln ('Ученики ',m,'-ого класса');
for i:=1 to 4 do
if pupil[i].class=m then
Writeln (pupil[i].surname);
readkey;
end.