Ограничение повторов

[ТРОЯН=)]

Привет всем!!!Мне надо сделать чтоб у меня repeat повторялся только 5 раз!!Подскажите как сделать плиз!!!

PROGRAM LIBRARY;

USES CRT;
TYPE BOOK=RECORD AUTHOR:STRING;
NAME:STRING;
year:array[1..25] of integer;
EDITION:STRING;
PAGE1:ARRAY [1..26] OF INTEGER;

END;
VAR
BOOKNAME:STRING;
M:ARRAY[1..50] OF BOOK;
I,K,J,N,MAX,E:INTEGER;
CH:CHAR;
S:STRING;
BEGIN
WRITELN('VVEDITE KOLI4ESTVO KNIG');
READLN(N);
WRITELN('VVODITE AVROR,NAZVANIE,GOD IZDANIA,IZDATEL,STRAN');

FOR I:= 1 TO N DO with m[i] do begin
writeln('Bbedite aVtora');
READLN(M[I].AUTHOR);
WRITELN('VvEDITE NAZVANIE KNIGI');
READLN(M[I].NAME);

writeln('Vvedite god izdania v guapozone oT 1950 go 2009');
READLN(YEAR[I]);
if (YEAR[i] <1950)or (year[i]>2009) then
REPEAT
writeln('Vvedite god izdania v guapozone oT 1950 go 2009');
READLN(YEAR[I]);
UNTIL (YEAR[I]>1950)AND(YEAR[I]<2009);
WRITELN('vVEDITE IZDATEL9');
READLN(M[I].EDITION);
WRITELN('VVEDITE COLI4ESTVO STRANILg OT 300 gO 1000');
IF (PAGE1[I]<299)OR (PAGE1[I]>1001) THEN
REPEAT
WRITELN('VVEDITE COLI4ESTVO STRANILg OT 300 gO 1000');
READLN(PAGE1[I]);
UNTIL (PAGE1[I]>299)AND(PAGE1[I]<1001);

END;
BEGIN
WRITELN('FILL OUT THE NAME OF THE AUTHOR');
READLN(S[I]);
IF S[I]<>M[I].AUTHOR THEN REPEAT
WRITELN('TAKOGO AVTORA NET POPRObUITE EIIIgE RAZ');(вот тут нужен повтор !!!!!!!!!)
READLN(S[I]);
UNTIL S[I]= M[I].AUTHOR;
FOR I:=1 TO N-1 DO
WRITELN(M[I].AUTHOR:15,M[I].NAME:5,M[I].EDITION:7);
READLN;
END;



BOOKNAME:=M[I].NAME;
WRITELN('KNIGA S MAKSIMALNbIM KOLI4ESTVOM STRANIC');
WRITELN(BOOKNAME:3,MAX:3);


writeln;
writeln('AVTOR KNIGA GOD IZDATEL STRANICE ');
for i:= 1 to n do
with m[i] do
writeln(m[i].author:3,' ',m[i].name:3,' ',year[i]:3,' ',m[i].edition:3,' ');
readln;
END.

end.
END.

[Levsha100]

В прогу не вникал...
Но зачем

repeat

если можно

for i:=1 to n do

?
В крайнем случае заведи пременку-счетчик.

[Sazary]

Попробуйте как-нибудь так:

IF S[i]<>M[i].AUTHOR THEN
begin
cnt := 0;
REPEAT
WRITELN('TAKOGO AVTORA NET POPRObUITE EIIIgE RAZ');(вот тут нужен повтор !!!!!!!!!)
READLN(S[i]);
inc(cnt);
UNTIL (S[i]= M[i].AUTHOR) or (cnt=5);

(не забыв объявить cnt : integer)

[ТРОЯН=)]

Спасибо работает!!А как программу закрыть после этого???вроде же break закрывает а у меня чёт не получается!!

[Sazary]

ТРОЯН=)
break - выход из текущего цикла
exit - выход из текущей функции (при вызове из главной программы завершает ее)
halt - завершение программы из любого места.

[ТРОЯН=)]

О.о спасибо!))