Найти, равна ли сумма 2-ух первых цифр данного четырехзначного числа сумме

Uses crt;
var x:integer;
begin
     write('Введи число:');
     readln(x);
     if (xgt;=1000) and (xlt;=9999) then
          if (x div 1000)+(x div 100 mod 10)=(x mod 10)+(x mod 100 div 10) then
             writeln('yes')
          else writeln('no')
     else writeln('error');
end.

var
str:string;
begin
readln(str);

if ((ord(str[1])+ord(str[2])) = (ord(str[3]) + ord(str[4]))) then write('Сумма одинакова')
  else write('Сумма неравна');

end.