[Dmitry]

Цитата: Сообщение от Nikita29  Вообщем надо написать программу, для определения большего из 4 чисел.

А точно должен быть цикл?
Вот что пришло на скорую руку:

uses crt;
var
a,b,c,d,max:integer;
begin
    writeln('Введите числа:');
    read(a,b,c,d);
    
    if a>b 
    then
        max:=a;
    else
        max:=b;
    end;

    if c>max 
    then
        max:=c;
    end;

    if d>max 
    then
        max:=d;
    end;

    write('Наибольшее число: ');
    write(max);
end.

Если не то, то опиши точно что должно быть в коде.