Do this:
SCAR Code:
function SymbolsSafe(Symbols: array of string; Number: integer): Boolean;
var c: integer;
begin
for c := 0 to Number do
begin
Writeln('Searching for '+ Symbols[c]);
if FindSymbol(x, y, Symbols[c]) then
Result := False;
end;
end;
If you REALLY wanna do it your way :P :
SCAR Code:
function SymbolsSafe(Symbols: array of string; Number: integer): Boolean;
var
x, y, c, t: integer;
begin
c := 0;
repeat
Writeln('Searching for '+ Symbols[c]);
if FindSymbol(x, y, Symbols[c]) then
Result := False;
Inc(c);
until(c > Number);
end;