Помогите плиз в паскале!!!!

program abc;
var i,k,n:integer;
begin
readln (i,k,n);
if i>k
then if k>n then writeln('i','k','n')
else if i>n then writeln('i','n','k')
else writeln('n','i','k')
else if n>k then writeln('n','k','i')
else if i>n then writeln('k','i','n')
else writeln('k','n','i')
end.

И никогда не делай много сложных логических выражений

uses CRT;
var a,b,c:Integer;
begin
clrscr;
write('a, b, c= ');
readln(a,b,c);
if (a > b) and (a > c) then writeln(a)
else if (b > a) and (b > c) then writeln(b)
else writeln(c);
readkey;
end.

Паскаль - хорошая программа! Особенно Турбо Паскаль!

Сортирует массив любого размера. Для изменения размена массива - измени константу n.

const n = 3;
var m array [1..n] of integer;
i, j, t, d:integer;
begin
for i:=1 to n do
readln(m);

for i:=1 to n do begin
t:=i;
for j:=i to n do
if m[j]>m[t] then t:=j;
d:=m[t];
m[t]:=m;
m:=d;
end;

for i:=1 to n do
writelnln(m, ' ');

end.

program abc;
var i,k,n:integer;
begin
readln (i,k,n);
if (i>=k) and (i>=n) then begin
if k>=n then writeln (i,' ',k,' ',n) else writeln (i,' ',n,' ',k) end
else
begin if (i>=k) and (i<=n) then writeln (n,' ',i,' ',k) else
begin if (i<=k) and (i>=n) then writeln (k,' ',i,' ',n) else
begin if (i<=k) and (i<=n) then
begin if k>=n then writeln (k,' ',n,' ',i) else writeln (n,' ',k,' ',i)
end;
end;
end;
end;end.