Проверьте пожалуйста правильно ли написана программа по теме "сортировка массива":
program dt2;
uses crt;
var a:array[1..4] of integer;
j,i,x:integer;
begin
for i:=1 to 4 do;
read(a[i])
end;
begin
for j:=1 to 3 do
end;
for i:=1 to 4-j do;
end;
if a[i]>a[i+1] then
begin
x:=a[i];
a[i]:=a[i+1];
a[i+1]:=x
end;
for i:=1 to 4 do
writeln (a[i])
end.