Язык Pascal. Программирование для начинающих

type
  massive = array [1..5]of integer;
 
var
  mas, mas2: massive;
  s: string; i, j: integer;
 
procedure perestanovka;
var
  mas1: massive;k, i: integer;
begin
  k := 1;
  for i := 1 to length(s) do
    if mas[i] mod 2  0 then
    begin
      mas1[k] := mas[i];
      inc(k);
    end;
  k := k - 1;
  for i := 1 to k do
    if i = 1 then mas2[i] := mas1[k] else mas2[i] := mas1[i - 1];
end;
 
begin
  j := 1;
  readln(s);
  for i := 1 to length(s) do
    mas[i] := StrToInt(s[i]);
 
  perestanovka;
 
  for i := 1 to length(s) do 
  begin
    if mas[i] mod 2  0 then
    begin
      mas[i] := mas2[j];inc(j);
    end;
    write(mas[i]);
  end;
end.