изменяем тип строки... Опции

[JoB]

Я смотрю, что то всех на массивы в последнее время приперло, вот и меня потянуло...
Надо используя двумерные или (если конечно возможно) одномерные массивы решить задачу...
Даны целые а1,а2,...,аn, действительные b1,b2,...,bn преобразовать последовательность b1,b2,...,bn в а1,а2,...,аn, по правилу если ai делится на 10, то bi увеличевается в 10 раз, иначе bi заменить нулем.
Задача впринцепе очень легкая, но я что то в сам смфсл врубитьсяя не могу, а время позднее (завтро эту работу надо сдавать )
Я конечно ща продолжу мучиться, но если каму ни лень помогите...

[JoB]

почитал faq прога стала запускаться вот только не пашет она нормально...
Блин я не спал два дня =) из-за этих долбанных выходных...
короче помоги, а - обещаю исправиться

Код

uses crt;
const n=10;
type aaa = array [1..n] of integer;
    bbb = array [1..n] of real;
var i:integer;
   a:aaa;
   b:bbb;
begin
clrscr;
for i:=1 to n do
begin
writeln('vvedite');
readln (a[i]);
writeln('vdite');
readln (b[i]);
end;
begin
if a[i] mod 10 = 0 then
b[i]:=b[i]*10
else
b[i]:=0;
writeln (a[i]);
writeln (b[i]);
end;
end.