Вывести список трёхзначных чисел,которые делятся на произведение своих цифр в 5 колонках

[Dima170792]

Доброго времени суток ув.форумчане ! нужна ваша помощь в решении задачи по информатике.язык программирования Delphi7.Задача:Вывести список трехзначных чисел,которые делятся на произведение своих цифр в 5 колонках.Поставить защиту от деления на 0!По возможности выложите полный код программы!Заранее благодарен.

[НЕМО170792]

Нашел кой-какие наброски только не могу адаптировать под Delphi7:

program Schitalovo;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
i,z,c:integer;
x:string;
begin
for i:=100 to 999 do begin
x:=IntToStr(i);
z:=StrToInt(x[1]);
for C:=2 to length(x) do
z:=z*StrToInt(x[c]);
if z<>0 then begin
if (StrToInt(x) mod z) = 0 then
WriteLn(x);
end;
end;
ReadLn;
end.