Помогите мне пожалуйста с задачей по Turbo Delphi

Писалось в Delphi 7, может что-то поменять придётся, но вряд-ли.

Задание 1:
program z1;
var
 a, b, n, i, c1, c2: integer;
begin
 Randomize;
 n := Random(65535) + 1;
 WriteLn('N = ', n);
 Write('A = ');
 ReadLn(a);
 Write('B = ');
 ReadLn(b);
 c1 := 0;
 c2 := 0;
 i := n;
 repeat
  if i mod 10 = a then
   Inc(c1);
  c2 := c2 + (i mod 10);
  i := i div 10;
 until i <= 0;
 WriteLn('A (', a, ') встречается ', c1, ' раз');
 if (c2 > b) and (n mod a = 0) then
  WriteLn('Верно')
 else
  WriteLn('Неверно');
 ReadLn;
end.

Задание 2:
program z2;
var
 n1, n2, i, d, c: integer;
begin
 for i := 1000 to 9999 do
 begin
  d := 1000;
  n1 := (i div d) mod 10;
  repeat
   c := 0;
   n2 := i mod d;
   repeat
    if n2 mod 10 = n1 then
     Inc(c);
    n2 := n2 div 10;
   until n2 <= 0;
   if c >= 1 then
   begin
    WriteLn(i);
    Break;
   end;
   d := d div 10;
  until d = 10;
 end;
 ReadLn;
end.
Если верно уловил смысл второго задания, то в консольный вывод результаты не влезают. Вывод в файл сам допишешь.

Не было и нет Турбо Делфи, был только Турбо Паскаль от фирмы Borland под ОС MSDOS!
А по делу: для начала покажи что сам смог написать для начала