Даны наименования 10 банков и процентные ставки по вкладам в каждом. Напечатать список банков со ставками ниже средней ставки по всем 10 банкам. Указать банк с максимальной ставкой — Pascal(Паскаль)

uses crt;
const n=10;
var m:array[1..10]of string[20];
c:array[1..10]of real;
i,max:integer;
s:real;
 
begin
 clrscr;
 s:=0;
 max:=1;
 for i:=1 to n do
 begin
  write('Название ',i,'-го банка -> ');
  readln(m[i]);
  write('Ставка -> ');
  readln(c[i]);
  s:=s+c[i];
  if c[i]>c[max] then max:=i;
 end;
 s:=s/n;
 for i:=1 to n do if c[i]<s then writeln(m[i]:21,c[i]:2:2,'%');
 writeln('Максимум - ',m[max]:21,c[i]:2:2,'%');
 readln;
end.