Сравнить сумму цифр левой и правой части пятизначного числа

{Используя цикл с предусловием сравнить сумму цифр левой и правой части
пятизначного числа. Если они не равные - поменять их местами.}
uses
  sysutils;
var
  t,n : longint;
  s2,s1,k : integer;
  ch  : char;
  st  : string;
begin
  repeat
    write('Введите число: ');
    readln(n)
  until (n >= 10000) and (n <= 99999);
  t := n;
  s1 := 0;
  k := 0;
  while (k<>2) do
  begin
    s1 := s1 + n mod 10;
    n := n div 10;
    inc(k);
  end;
  writeln('Сумма правой части числа: ',s1);
 
  n := t;
  s2 := 0;
  k := 5;
  while (k>0) do
  begin
    if k<=2 then
      s2 := s2 + n mod 10;
    n := n div 10;
    dec(k);
  end;
  writeln('Сумма левой части числа: ',s2);
 
  if s1<>s2 then
    begin
      st:=inttostr(t);
      n:=length(st);
      ch:=st[n];
      st[n]:=st[1];
      st[1]:=ch;
      ch:=st[n-1];
      st[n-1]:=st[2];
      st[2]:=ch;
      write('Измененное число: ');
      writeln(st);
    end;
  readln;
end.

var
  t, n: longint;
  s2, s1, k: integer;
 
begin
  repeat
    write('Введите число: ');
    readln(n)
  until (n >= 10000) and (n <= 99999);
  t := n;
  s2 := 0;
  k := 0;
  while n <> 0 do
  begin
    if k <> 2 then s2 := s2 + n mod 10;
    n := n div 10;
    inc(k);
    if k = 2 then 
    begin
      s1 := s2; s2 := 0;
    end;
  end;
  writeln('Сумма правой части числа: ', s1);
  writeln('Сумма левой части числа: ', s2);
  if s1 <> s2 then
  begin
    n := 1000 * (t mod 100) +
         100 * ((t div 100) mod 10) +
         (t div 1000);
    writeln('Измененное число: ', n);
  end;
  readln;
end.