Помогите с Задачей на массив

[alexBlack]

for z:=1 to 3 do begin
if ch=mas[z]then begin k:=k+1; break; end;
end;

======>>>>

z := 1;
while z <= 3 do begin
    if ch=mas[z] then begin 
       k:=k+1; z := 3; 
    end;
    inc(z);
end;

И помните, один вопрос - одна тема