Помогите с Delphi пожалуйста

Первая:

program z1;
var
 a, b, i, c, n: integer;
begin
 Randomize;
 n := Random(65535) + 1;
 WriteLn('N = ', n);
 Write('A = ');
 ReadLn(a);
 Write('B = ');
 ReadLn(b);
 i := n;
 c := 0;
 repeat
  if i mod 10 > a then
   Inc(c);
  i := i div 10;
 until i <= 0;
 WriteLn('Символов больше A: ', c);
 if (n > a) and (n < b) then
  WriteLn('Принадлежит интервалу A..B')
 else
  WriteLn('Не принадлежит интервалу A..B');
 if (n mod 3 = 0) then
  WriteLn('Кратно 3')
 else
  WriteLn('Не кратно 3');
 if (n mod 4 = 0) then
  WriteLn('Кратно 4')
 else
  WriteLn('Не кратно 4');
 if (n mod 5 = 0) then
  WriteLn('Кратно 5')
 else
  WriteLn('Не кратно 5');
 ReadLn;
end.

Вторая:

program z2;

function ReverseString(Str: string): string;
var
 i: integer;
begin
 Result := '';
 for i := Length(Str) downto 1 do
  Result := Result + Str[i];
end;

var
 a, b, i: integer;
 s : string;
begin
 Write('A = ');
 ReadLn(a);
 Write('B = ');
 ReadLn(b);
 for i := a to b do
 begin
  Str(i, s);
  if Copy(s, 1, Length(s) div 2) <> ReverseString(Copy(s, (Length(s) div 2) + 1
  + (Length(s) mod 2), Length(s) div 2)) then
   WriteLn(i);
 end;
 ReadLn;
end.

Писалось в Delphi 7, такчто может придётся в функции ReverseString заменить Result на ReverseString.

В консоли или на форме?