решить контрольную работу, которая будет у меня на неделе. У меня только одна попытка. Задания на фотографии.

Var C:array['a'..'z'] of integer;
    S:string;
    i,Max:integer;
    j:char;
Begin
Read(S);
For i:= 1 to Length(S) do
    C[S[i]]:=C[S[i]]+1;
Max:=C['a'];
For j:= 'b' to 'z' do
    if Max<C[j] then Max:=C[j];
WriteLn(Max)
End.

Var
   A:array[1..10000] of integer;
   i,k,Max:integer;
Begin
ReadLn(i);
For i:= 1 to i do
    Read(A[i]);
k:=0;
Max:=0;
For i:= 1 to i-1 do
    if A[i]>A[i+1] then k:=k+1
    else if k>Max then
            Begin
            Max:=k;
            k:=0;
            End;
if Max=0 then WriteLn(0)
else WriteLn(Max+1)
End.

Var a: array[1..255] of integer;
    b: array[1..10000] of integer;
    s: string;
    i,mx,tek,ind,n: integer;
begin
// задание 1
  write('строка: ');  readln(s);
  mx:=0; ind:=0;
  for i:=1 to 255 do a[i]:=0;
  for i:=1 to length(s) do
  if s[i] in ['a'..'z'] then inc(a[ord(s[i])]);
  for i:=ord('a') to ord('z') do if a[i]>mx then
  begin
    mx:=a[i];
    ind:=i;
  end;  
  writeln('наиболее часто встречается буква: ',chr(ind),' - ',mx);
// задание 2
  write('N = ');  readln(n);
  mx:=0; tek:=0;
  read(b[1]);
  for i:=2 to n do
  begin
    read(b[i]);
    if b[i]<=b[i-1] then inc(tek)
    else
    begin
      if tek>mx then mx:=tek;
      tek:=0;
    end;  
  end;
  if mx>0 then writeln(mx+1)
  else writeln(0);
end.