составить программку на нахождение макимального значения в массиве чисел.

Размер массива бы уточнить. Сделаю одномерный с 10 ячейками памяти.

от 1 до 10

Сделано с рандомными числами.
program massiv;  var mas:array [1..10] of real; a:real; i:byte;    begin     a:=0;     for i:=1 to 10 do begin     mas[i]:=random(10)+1;      if alt;mas[i] then a:=mas[i];     end;     writeln(a, ' - наибольшее из чисел массива ' );     end.     

Var
a:array[1..10] of real;
i,na:integer;
max:real;
begin
repeat
      writeln('Введите количество частей массива меньше 11');
      readln(na);
until (nagt;0) and(nalt;=10);
writeln('Введите элементы массива,',na,' штук');
for i:=1 to na do
    begin
    readln(a[i]);
    if i=1 then max:=a[i]
    else
    if (a[i]gt;max) then max:=a[i];
    end;
writeln('Наивеличайший элемент массива = ',max);
end.