Нахождение диапазона значений типов данных, где ошибка?

var
x,y:word;
i:longint;
s:string;
begin
i:=-1000000000;
repeat
i:=i+1;
x:=i;
until i=x;
i:=10000000000;
while i>y do begin
i := i - 1;
y:=i;
end;
if x=-32768 then s:='Integer';
if y=255 then s:='byte';
if y=65535 then s:='word';
if y=127 then s:='shortint';
writeln('Минимальное значение: ',x);
writeln('Максимальное значение: ',y);
writeln('Идентификатор: ', s);
readln;
end.

begin
  Writeln('Integer: [', Low(integer), '..', High(integer), ']');
  Writeln('Shortint: [', Low(shortint), '..', High(shortint), ']');
  Writeln('Byte: [', Low(byte), '..', High(byte), ']');
  Writeln('Word: [', Low(word), '..', High(word), ']');
  Writeln('Longint: [', Low(longint), '..', High(longint), ']');
  Readln
end.

begin
  Writeln('Shortint: [', -MaxShortInt - 1, '..', MaxShortInt, ']');
  Writeln('Smallint: [', -MaxSmallInt - 1, '..', MaxSmallInt, ']');
  Writeln('Integer / Longint: [', -MaxInt - 1, '..', MaxInt, ']');
  Writeln('Int64: [', -MaxInt64 - 1, '..', MaxInt64, ']');
  Writeln('Byte: [0..', MaxByte, ']');
  Writeln('Word: [0..', MaxWord, ']');
  Writeln('LongWord / Cardinal: [0..', MaxLongWord, ']');
  Writeln('UInt64: [0..', MaxUInt64, ']');
end.