Сформировать целочисленный массив из n (n<=88) элементов, заданных случайным образом. Записать программу поиска максимального элемента в этом массиве на языке программирования Паскаль.

1) var s: string;       i: integer;       f: boolean; begin   f: =false;   write ('s = ');   readln(s);   for i: =1 to length(s) div 2 do     if s[i]=s[length(s)-i+1] then f: =true else      begin       f: =false;       break;     end;   if f then writeln ('palindrom') else writeln ('not palindrom');   readln; end. 2) var a,b: integer;       count,j: integer; function palindr (n: integer): boolean; var s: string;       i: integer; begin   palindr: =false;   str (n,s);     for i: =1 to length(s) div 2 do            if s[i]=s[length(s)-i+1] then palindr: =true else           begin             palindr: =false;             break;           end; end; begin   write ('a = ');   readln(a);   write ('b = ');   readln(b);   count: =0;   for j: =a to b do     if palindr(j) then       begin         write (j,' ');         count: =count+1;       end;   writeln;   writeln ('kol-vo palindromov: ',count);   readln; end.