Начинаю учить BP

Доброго времени суток.

Даже если программист начинающий, то он не должен пренебрегать теми прелестями, которые предоставляет язык. В частности, процедурами и функциями. И чем быстрее он научится ими пользоваться, тем проще будет ему. Тем более, что максимум двух переменных он уже может находить. Поэтому вставлю свои пять копеек. :-) Предположим, что нам нужны целые числа.

function Max(a,b: Integer): Integer;
begin
if a > b then Max := a else Max := b;
end;

А теперь можем находить максимум среди любого числа переменных. Допустим трех

MaxN := Max(Max(a, b), c);

или четырех

MaxN := Max(Max(a, b), Max(c, d));

Заодно, укажу на неточность у Роман Гноц, чтобы начинающий программист не ходил по граблям. Компилятор не пропустит такого, когда массив и переменная имеют одно имя. А если искать максимум среди элементов массива в цикле, то тогда так (n число элементов или размерность массива)

z := a[1];
for j:=2 to n do if a[j] > z then z := a[j];

Удачи!

Идея у Гноц правильная : нужно использовать цикл.
ошибки только в его тексте поправишь и все будет хорошо.

var
a: array[1..1000] of real;
a, i :integer;
z : real;
bgein
writeln("Vvedite kolichestvo wbah > ");
readln(i);
writeln("Vvedite chisla >");
for a:=1 to i do readln(a[a]);
z:= a[1];
for a:=1 to i do if (z<a[a])> ", z);
readkey;
end.

хммм.... раз программист начинающий, то устроит ли его работа с массивом? ? если да, то можно замутить некое подобие из поста Гноц, а вот если нет, то я приведу способ как выбрать наибольшее из 3чисел без массива:
var
a,b,c:integer;
begin
write('a-> ');readln(a);
write('b-> ');readln(b);
write('c-> ');readln(c);
if (a>b)and(a>c) then writeln(a) else
if b>c then writeln(b) else writeln(c);
readln
end.