Напишите программу которая будет считать значения целых переменных

Program p23;
var
a,b,c:integer;
min,max,sr:integer;
procedure vozr();
begin
if (a>b)and(b>c)then
begin
sr:=b;
end;
if (b>a)and(a>c)then
begin
sr:=a;
end;
if (a>c)and(c>b)then
begin
sr:=c;
end;
if (c>b)and(b>a)then
begin
sr:=b;
end;
if (a>c)and(c>b)then
begin
sr:=c;
end;
if a>b then
begin
if a>c then
begin
max:=a;
end;
end;
if b>a then
begin
if b>c then
begin
max:=b;
end;
end;
if c>a then
begin
if c>b then
begin
max:=c;
end;
end;
if c<a then
begin
if c<b then
begin
min:=c;
end;
end;
if a<c then
begin
if a<b then
begin
min:=a;
end;
end;
if b<a then
begin
if b<c then
begin
min:=b;
end;
end;
writeln(max, ' ' ,sr, ' ' ,min);
end;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите трете число');
readln(c);
vozr();
end.