Определить, сколько фамилий в списке имеют окончание «ова»

program n22;
uses crt;
var 
 mas:array[1..8] of string;
 i,k:integer;
begin
clrscr;
for i:=1 to 8 do
begin
k:=0;
 writeln('slova:',i);
  readln(mas[i]);
if pos('ова',k)<>0 then k:=k+1;
 write('ова встречается ',k,' раз(а)');
end.

uses
  crt;
var
  mas:array[1..8] of string;
  i,k:integer;
begin
  clrscr;
  k:=0;
  for i:=1 to 8 do
  begin
    write('> ',i,' фамилия: ');
    readln(mas[i]);
    if pos('ова',mas[i])=Length(mas[i])-2  then
      inc(k);
  end;
  writeln('Таких фамилий: ',k)
end.

uses crt;
var 
 mas:array[1..8] of string;
 i,k:integer;
begin
clrscr;
for i:=1 to 8 do
begin  - вот к этому БЕГИНу где ЕНД ? 
k:=0; - это что, счетчик слов с "ова" - тогда обнулять его надо ДО цикла
 writeln('slova:',i);
  readln(mas[i]);
if pos('ова',k)<>0 then k:=k+1; - вот это и компилироваться не должно! pos('ова', mas[i]) наверное 
 вот тут видимо конец цикла должен быть 
 write('ова встречается ',k,' раз(а)');
end.

if (mas[i][length(mas[i])]='a')and(mas[i][length(mas[i])-1]='в')and(mas[i][length(mas[i])-2]='о') then inc(k);

uses
  crt;
var
  mas:array[1..8] of string;
  i,k:integer;
begin
  clrscr;
  k:=0;
  for i:=1 to 8 do
  begin
    write('> ',i,' ôàìèëèÿ: ');
    readln(mas[i]);
    if copy(mas[i],Length(mas[i])-2,3)='îâà'  then
      inc(k);
  end;
  writeln('Òàêèõ ôàìèëèé: ',k)
end.