Usuwanie pierwszego napotkanego elementu.

Witam, mam taki problem. Dostałem zadanie, aby usunąć pierwszy napotkany element z tablicy. Tzn. Wczytuje z tablicy np. nazwisko "Kowalski" i zastępuje je słowem "Nie istnieje". Problem polega na tym, że gdy tych samych nazwisk jest więcej niż jedno to usuwa wszystkie te nazwiska. A chciałbym, żeby usuwał pierwsze napotkane kod.

procedure kasowanie(nazwisko:uczen);
var
c:string;
begin
writeln('podaj nazwisko osoby ktora chcesz skasowac');
readln(c);
for i:=1 to 15 do
  begin
if osoby[i].nazwisko = c then
osoby[i].nazwisko:='NIE ISTNIEJE';
end;
end;            
 

Zatem przerwij tę pętlę po napotkaniu tego pierwszego nazwiska.

Btw, beznadziejne masz formatowanie i nazewnictwo. Nie stawiaj spacji jak Ci się chce, a typy nazywaj od litery T (np. TUczen i tak dalej - taka jest konwencja w Pascalu).

Wiedziałem, że break trzeba gdzieś dać, wciskałem go wszędzie ale nic nie dawało tego efektu. Dałem go po tym wierszu osoby[i].nazwisko:='NIE ISTNIEJE'; i wszystko działa jak należy :), dzięki.