pomoc pascal pole

program dsljohn;
const
dlzka=5;   {dlzka pola}
var
I, pom, min, max: integer;
pole: array[1..dlzka] of integer;

begin

for I:=1 to dlzka do
  read(pole[I]);          {citanie hodnot}

min:=1;
max:=1;

for I:=1 to dlzka do      {najdenie najmensieho a najvacsieho prvku pola}
begin
if pole[I]<pole[min] then
  min:=I;
if pole[I]>pole[max] then
  max:=I;
end;

pom:=pole[1];         {presunutie najmensieho prvku na prve miesto}
pole[1]:=pole[min];
pole[min]:=pom;

pom:=pole[dlzka];     {presunutie najvacsieho prvku na posledne miesto}
pole[dlzka]:=pole[max];
pole[max]:=pom;

for I:=1 to dlzka do   {vypis prvkov v novom poradi}
  write(pole[I], ' ');

readln; readln;
end.