Паскаль... кто может помочь

Находит произвольное число элементов, сумма которых равна 200, и выводит их индексы и значения, если таких элементов нет то выводится сообщение.

type
ta = array [1..50] of integer;

var
m: array [1..50, 0..199] of boolean;

function IsHave200(a: ta; c, s: integer): boolean;
var
k: integer;
r: boolean;
begin
r := false;
for k := c to 50 do begin
if s + a[k] = 200 then begin
write('a[', k, ']=', a[k], ' ');
r := true;
break;
end
else if (s + a[k] < 200) and (k < 50) then begin
if not m[k, s + a[k]] then begin
r := IsHave200(a, k + 1, s + a[k]);
if r then begin
write('a[', k, ']=', a[k], ' ');
break;
end;
m[k, s + a[k]] := true;
end;
end;
end;
IsHave200 := r;
end;

var
a: ta;
c: integer;
begin
randomize;
writeln('массив: ');
for c := 1 to 50 do begin
a[c] := random(101);
write(a[c]:4);
end;
writeln;
if not IsHave200(a, 1, 0) then writeln('таких элементов нет');
end.