Записи!!!

[ТРОЯН=)]

Люди помогите плиз сделал задачу почти а как найти максимальное количество строиниц незнаю!!Вот код:



PROGRAM LIBRARY;

USES CRT;
TYPE BOOK=RECORD AUTHOR:STRING;
NAME:STRING;
YEAR:INTEGER;
EDITION:STRING;
PAGE:INTEGER;
END;
VAR
M:ARRAY[1..50] OF BOOK;
B:ARRAY[1..39] OF INTEGER;
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 BEGIN
READLN(M[I].AUTHOR);
READLN(M[I].NAME);
READLN(M[I].YEAR);
READLN(M[I].EDITION);
READLN(M[I].PAGE);(вот надо найти макс страниц(тоесть книгу с максимальным количест страниц)

END;
BEGIN
WRITELN('FILL OUT THE NAME OF THE AUTHOR');
READLN(S);
FOR I:= 1 TO N DO
IF S=M[I].AUTHOR THEN
WRITELN('TAKOI AVTOR EST') ELSE
WRITELN('SUCH AUTHOR IS ABSENT');
FOR I:=1 TO N-1 DO
WRITELN(M[I].AUTHOR:5,M[I].NAME:5,M[I].YEAR:5,M[I].EDITION:5,M[I].PAGE:5);
READLN;
END;
FOR I:= 1 TO N DO
IF M[I].PAGE>M[1].PAGE THEN M[I].PAGE:=MAX;(пытался так)

WRITELN(MAX);

[VVM]

Вроде бы так:

var
  max: integer;
...
max := 0;
...
for i := 1 to 50 do
  if m[i].page > max then
    max := m[i].page;
writeln(max);

[ТРОЯН=)]

Спасибо большое работает!!!)))

[ТРОЯН=)]

Блин, а как теперь добавить чтоб название этой книги написала????

[VVM]

тогда так:

var
  max: integer;
  bookname: string;
...
max := 0;
...
for i := 1 to 50 do
  if m[i].page > max then
  begin
    max := m[i].page;
    bookname := m[i].name;
  end;
writeln(bookname);
writeln(max);

[ТРОЯН=)]

Ага работает))ещё раз спасибо!!