ПроЦедуры

[Ol'ga_new]

значит в процедуре вместо: procedure maxmin(x,y:integer);
нужно: procedure maxmin(var x,y:integer);

[DomiNik]

тоже самое, а ты не проверяла ее?

[Ol'ga_new]

Нет я сейчас не дома проверить не могу, но я пропустила end где заканчивается процедура (перед begin ... введите...), может поможет?(а по логике должна работать!)

[DomiNik]

я написал еще сразу же, но увы не хочет(

[DomiNik]

по возможности проверь,если что напишешь, буду очень благодарен)

[Ol'ga_new]

Извини, тут просто процедура не возвращает значение своих переменных. Вот рабочий вариант:
var a,b,c,x,y:integer;
procedure P(x1,y1:integer);
begin
if x1<y1 then
begin
x:=y1;
y:=x1;
end else
begin
x:=x1;
y:=y1;
end;
end;
begin
readln(a,b,c);{ну или другой ввод-вывод}
P(a,b);
a:=x;
b:=y;
P(b,c);
b:=x;
c:=y;
P(a,b);
a:=x;
b:=y;
writeln(a,', ',b,', ',c)
end.

[DomiNik]

спасибо, теперь правильно)