Решить задачу с массивом.

Прочитать 8 симолов, Напечатать, если ли среди них символ "звездочка"

Program ryazantsev;

var i:integer;

bool:boolean;

a:array[1 ... 8] of string;

begin

bool:=false;

for i:=1 to 8 do readln (a[i]);

for i:=1 to 8 do if a[i]='*' then begin

bool:=true; break;

end;

if bool then writeln ('звездочка есть')

else writeln ('звездочки нет')

end.