Witam,
Mam takie zadanie:
Napisz program, w którym do 10 elementowej tablicy jednowymiarowej wczytujemy N imion z klawiatury (N jest wprowadzane przez użytkownika podczas działania programu). Po wprowadzeniu imion, na ekranie ma pojawić się informacja o ilości imion kończących się na literę ‘a’. Po wykonaniu operacji program ma zapytać czy chcemy zakończyć program czy wykonać go jeszcze raz.
Wyszło mi coś takiego, ale wyskakuje błąd i nie wiem co z tym zrobić...
program imiona;
var
j, n, licznik : integer;
s : string;
tab1 : array[1..10] of string;
begin
writeln('Podaj ilosc imion: ');
readln(n);
for j:=1 to n do
begin
write('Podaj imie: ');
readln(tab1[j]);
end;
s:=tab1[j];
licznik:=0;
repeat
if (s[Length(s)])='a' then licznik:=licznik+1;
s:=tab1[j+1];
until s=tab1[n];
write('Ilosc imion konczacych sie na "a": ', licznik);
readln;
end.
Za każdą pomoc z góry dziękuję.