О каждом из N абитуриентов, известны следующие сведения: фамилия, название факультета и нуждается ли он в общежитии. Факультеты имеют номера от 1 до K

const n=15;
const k=6;
const fm :array[1..n] of string[20]=('Иванов','Петров','Сидоров','Гусев',
'Уткин', 'Рябчиков','Красильников','Кузнецов','Белкин','Зайцев','Обухов',
'Попов','Алексеев','Тарасов','Хохлов');
type abt =record
fam:string[20];
fk:integer;
obs:boolean;
end;
var
st:array[1..n] of abt;
tmp:abt;
i,j,f:integer;
begin
randomize;
writeln('Данные заполненные случайным образом');
for i:=1 to n do begin
 with st[i] do begin
 fam:=fm[i];
write(fam:12,'   ');
fk:=random(k)+1;
write(fk:3,'-й факультет ');
if(random(2)=0 ) then obs:=true
else obs:=false;
if(obs) then
 writeln(' Нуждается в общежитии')
else
 writeln(' Не нуждается в общежитии');
end;
end;
for i:=n-1 downto 1 do
 for j:=1 to i do
 if(st[j].fk>st[j+1].fk)
  then begin
  tmp:=st[j];
  st[j]:=st[j+1];
  st[j+1]:=tmp;
  end;
  writeln('----------------');
  
  f:=0;
  writeln('Нуждаются в общежитии:');
for i:=1 to n do begin
 with st[i] do begin
 
if(obs) then  begin
 if(fk<>f) then begin
 writeln(fk,'-й факультет ');
 f:=fk;
 end;
writeln(fam);
end;
end;
end;
end.