Paskal.задача на записи.Помогите пожалуйста!

Дана информация о пяти комнатах в общежитии. Запись имеет вид: фамилии, номер комнаты, факультет, площадь. Вывести данные о комнате, в которой наименьшая площадь.

Код:

type Kom=record

fam:string[20];

nom:array[1..5]of integer;

fak:string[10];

pl:array[1..5]of real;

end;

var

tekkom:kom;

i:byte;s:real;

begin

for i:=1 to 5 do begin

writeln('Введите фамилию ',i,' студента');

readln(tekkom.fam[i]);

writeln('Введите номер комнаты ',i,' студента');

readln(tekkom.nom[i]);

writeln('Введите факультет ',i,' студента');

readln(tekkom.fak[i]);

writeln('Введите площадь комнаты ',i,' студента');

readln(tekkom.pl[i]);end;

for i:=1 to 5 do

if tekkom.pl[i]>s then s:=tekkom.pl[i];

for i:=1 to 5 do

if tekkom.pl[i]<s then s:=tekkom.pl[i];

writeln('Наименьшая площадь',s:2:2);

writeln ('Фамилия:',tekkom.fam[i]);

writeln ('Номер комнаты:', tekkom.nom[i]);

writeln ('Факультет:', tekkom.fak[i]); 

end.

Нужно сделать вывод фамилии студента, факультета и номера комнаты с наименьшей площадью. И если номера комнат совпадают, а площадь их нет выдать ошибку. Помогите пожалуйста сдавать завтра нужно!