Pomoc s algoritmom

[seTti]

Tady je procedura psana v pascalu, ktera sloupcovy vektor vyhleda a vrati, ve kterem sloupci jej nasla

procedure porovnej(radek, sloupec, rozmer:integer);
begin
  if vektor[radek] = matice[radek,sloupec] then
  begin
    if radek = rozmer then
    begin
      writeln(sloupec); {vypise, ktery sloupec se shoduje}
      exit;
    end
    else porovnej(radek+1,sloupec,rozmer);
  end
  else
  begin
    if sloupec = rozmer then
    begin
      writeln('Nenalezeno'); {hledani skoncilo neuspesne}
      exit;
    end
    else porovnej(1,sloupec+1,rozmer);
  end;
end;