Оператор Length в функции

[richard.hendricks]

Компилятор ругается на четвертую строку, мол Нет перегруженной подпрограммы с такими типами параметров. Помогите, чем сможете.

 uses crt;
function Search (arg:string; var i, a : integer; const b:integer) : boolean;
begin
for i:=1 to length(arg) do begin
if a[i]='A' then result:=true else result:=false;
end;
end;
var s:string;
begin
readln (s); Search (s);
end.

_________________________
Ошибка исправлена, но теперь возникла другая. Строка 5 : "Нет индексного свойства по умолчанию для типа integer", что делать ?

[Arigato]

arg целый, а length определяет размер строки или динамического массива.

[Аватар]

Чего хочешь то получить от этой пародии на код? Какой паскаль?

[Aleksandr H.]

 var i, a : integer

if a[i]='A'

А следующим будет вопрос "почему ругается на result"

[Serge_Bliznykov]

такое нужно было?

function SearchLetter(arg:string; findletter : char) : boolean;
var i:integer;
begin
  SearchLetter := false;
  for i:=1 to length(arg) do 
     if arg[i]=findLetter then begin SearchLetter:=true; Exit end
end;
var s:string;
begin
  readln(s); 
  if SearchLetter(s,'A') 
      then WriteLn('Буква A есть в данной строке')
      else WriteLn('Буквы A нет в данной строке');
end.