Склавиатуры вводится возраст каждого из 10 друзей. найти возраст старшего. сколько друзей такого возраста. паскаль

Пишу на qbasic cls dim a(10) for i = 1 o 10 input a(i) next i max= a(1) for i = 2 to 10 if a(i)> a(i-1)then max= a(i) end if next i for i = 1 to 10 if a(i)= max then k=k+1 end if next i print max print k

Var       k: integer;       a, s: real; begin       write('начальная стоимость: ');       readln(a);       write('число проданных газет:   ');       readln(k);             if k < = 50 then s : = k * a       else       begin               s : = 50 * a;               s : = s + (k - 50) * a * 1.2;       end;       writeln('выручка составила  ', s, ' руб.'); end.

Program qq;   var x, y, z, c, a, b: real;   begin  writeln('введите стоимость билета бизнесс-класса: ');   readln(x);       if x > 0 then  begin    y: = x / 2;     writeln('введите количество оставшихся билетов бизнесс-класса, затем введите количество оставшихся билетов эконом-класса');     readln(a, b);           if (a > =0) and (b > = 0) then      begin        c: = a*x + y*b;         z: = (120*y + 40*x) - c ;         writeln('доход авиакомпании: ', z);       end      else      writeln('решение невозможно');   end;   end.вот так всё работает. 1.  не там поставили end; 2. лишнее  else  writeln('решение невозможно'); 3. у меня ругался паскаль на то что в условия  при and не взяты в круглые скобки.  if (a > =0) and (b > = 0) then