Сформировать целочисленный массив из 25 элементов. элементы массива принимают значения от -15 до 20. найти максимальный элемент и его номер надо(турбо паскале), за ранее )

Type   arr=array[1..25] of integer; var   ar: arr;   i,maxi,max: integer; begin   randomize;   max: =-16;   for i: =1 to 25 do begin     ar[i]: =(random(36)-15);     write(ar[i],' ');     if ar[i]> max then begin       max: =ar[i];       maxi: =i;     end;   end;   writeln;   write(max,' ',maxi);   readln; end.

var

  s: string;

  i: longint;

begin

  readln(s);

for i: =1 to length(s) div 2 do write(s[i]);

end.

var

s,s1: real;

k: integer;

begin

s: =10;

k: =1;

while s< 20 do

begin

s: =s*1.1;

k: =k+1;

end;

writeln('в ', k,' день он пробежит 20 км');

s: =10;

s1: =10;

k: =1;

while s< 200 do

begin

s: =s+s1*1.1;

s1: =s1*1.1;

k: =k+1;

end;

writeln('в ', k,' день суммарный пробег превысит 200 км');

end.