Помогите пожалуйста в программе Турбо Паскаль найти наибольшее значение из 4 заданных!

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

"из 4 заданных" Как они заданы? В массиве, вводятся юзером с клавиатуры в переменные, еще как-то? Тип этих величин? Целые, действительные, комплексные? Поймите, условие во многом определяет путь решения.

Объявляем функцию

function Max(A,B : Integer): Integer;
begin
if A > B then Max := A else Max := B;
end;

Вводим 4 целых числа в переменные a,b,c,d с клавиатуры, а затем в программе находим максимум этих чисел.

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

Если числа в массиве и их 4, то можно вместо соответствующих переменных подставить элементв массива. А можно и так

MaxN := A[1];
for j:=2 to 4 do if A[j] > MaxN then MaxN := A[j];

Если нужно при этом еще и отсортировать массив то
for i := 1 to n do
for j := 1 to n - i do
if A[j] < A[j + 1] then begin {если текущий элемент меньше следующего переставим их}
T := A[j]; {сначала сохраним в промежуточной переменной}
A[j] := A[j + 1]; {переставляем элементы}
A[j + 1] := T; {восстанавливаем значение}
end;

Это сортировка по убыванию. Максимальный будет первым. Здесь n это размерность массива (4 для вашего случая)

Все! Удачи!

var a:array 1..4 of integer;
i,j,k:integer;
begin
for i:=1 to 4 do
readln(a);
for i:=1 to 3 do
for j:=1 to i do
begin
if a[j]>a[j+1] then
begin
k:=a[j]
a[j]:=a[j+1]
a[j+1]:=k
end;
end;
writeln(a[1]);
end.

ну как-нибудь через for таких- то переменных, и переменная, допустим, макс: = первая переменная, энд иф следующая больше, то переприсвоить значение- как- нибудь так.