Разветвляющая програма, помогите закончить программу Опции

[arcan]

Ввести рекордное значение надоя на одну корову. По каждому хозяйству ввести количество коров и суммарный надой, выдать больше, меньше или равен надой на одну корову рекордному. Значение рекорда не изменять. В конце программы выдать
МАКСИМАЛЬНЫЙ НАДОЙ НА ОДНУ КОРОВУ 99999 ЛИТРОВ
В ХОЗЯЙСТВЕ НОМЕР 999

Код

program nadoi;
var rec,sym,kol,hoz:integer;
n:char;
begin
writeln('Vvedite record');
readln(rec);
repeat
writeln('hozayctvo # ');
readln(hoz);
writeln('symmarnui nadoi');
readln(sym);
writeln('kol-vo korov');
readln(kol);
begin
writeln('summarnui nadoi');
if sym/kol<rec then
writeln('menshe recorda')
else
if sym/kol>rec then
writeln('bolshe recorda')
else
writeln('raven recordy');
end;
writeln('poc4utat? 1-da,0-net:');
readln(n);
until n='1';
writeln('max nadoi na 1 korovy',sym/kol:5:0);
writeln('v xoz #' ,hoz:3 );
readln;
end.

Вот такая проблема надо вводить много хозяйств и чтобы в конце выдало номер хоз и суммарный надой.Проблема в том, что у меня проверяет только последние введенные данные... Помогите допистаь плиз