Pascal. Тип record

[tsergey]

Вот тебе код только марафет при выводе и вводе сам наведешь
---------------------------------------------------------------------
const
n=10;
type
prepod=record
family:string;
subject:string;
facul:string;
course:1..5;
Work_h:integer;
end;
var
a:array[1..n] of prepod;
i:integer;
max:integer;
begin
for i:=1 to n do
with a[i] do
read(family,subject,facul,course,wo rk_h);
max:=1;
for i:=2 to n do
if a[i].work_h>a[max].work_h then max:=i;
with a[max] do
write(family,' ',subject,' ',facul,' ',course,' ',work_h);
readln;
end.