Бейсик. Одномерный массив.

[Alexsssandr]

В универе озадачили.. Нужно в 6 Visul Basic с помощью массива сделать следующее: ввести текст длиной до 254 символов в виде строки символов.Подсчитать сколько в строке символов, совпадающих с символом цифры,введеной с клавиатуры. Использовать функции для работы с данными символьного типа.результатом должно быть сообщение о найденном значении или об отсутствии значения...
На Pascale сделал на Basice не могу... У меня с ним труба...

[Alexsssandr]

Var a:array[1..254]of char;
n,i,p:integer; b:string; x:array[1..1] of char;
begin
p:=0;
Writeln('Vvedite chislo simvolov');
Readln(n);
Writeln('Vvedite sravnivoemoe chislo');
readln(x[1]);
Writeln('vvedite massiv');
for i:=1 to n do
Begin
readln(a[i]);
End;
b:=a;
Writeln('b=',b);
for i:=1 to length(b) do
Begin
if b[i]=x then p:=p+1;
End;
If p=0 then writeln('Dannogo elementa net')
else writeln('p=',p);

Readln;
end.
Как сделать на бейсике?