количество фамилий в списке

[Гуля]

Помогите, пожалуйста, составить программу.
Определить сколько фамилий в списке имеют окончание - ов.

[nikleb]

Объясни конкретней, что за список, от куда. Выложи то что у тебя уже есть.

[Irat]

Хоть кому-то я могу помоч!!!
Переписывай!

Program G;
uses crt;
var Fam:array[1..50]of string;
F:text;
i,p,kol:integer;
Put:string;
begin
clrscr;
Writeln('Vvedite puti k faylu');
readln(Put);
Assign(F,Put);
reset(F);
i:=1;
While Not EOF(F) do
begin
readln(F,Fam[i]);
p:=length(Fam[i]);
if copy(Fam[i],p-1,2)='ov' then kol:=kol+1;
i:=i+1;
end;
Writeln(kol);
readkey;
end.

Можешь немного подредактировать!

[Гуля]

Большое спасибо.
Что значит
Error 14: invalid filename.?
Где ошибка?

[puporev]

Это значит, что неправильное имя файлаю Покажите, что Вы написали в этом фрагменте:
Writeln('Vvedite puti k faylu');
readln(Put);
Assign(F,Put);

[Гуля]

Я не понимаю. Программу ввела, запустила. Запрашивает
Vvedite puti k faylu
Что ввести? Где находится файл с фамилиями?
С:\Dokuments and settings\
А как дальше, незнаю.(на рабочем столе)

[Rusl92]

? ЧТо вы делаете? вставьте ваш файл в Паскаль, затем напишите при вводе данных myfile.txt вот

[K@$K@]

uses crt;
var
  buf   : string;
  count : integer;  
begin
  assign(input,'in.txt');
  reset(input);
  while not eof(input) do
  begin
    readln(input,buf);
    if copy(buf,length(buf)-1,2)='ov' then //заместо ov поставить ов
     inc(count);
  end;
  close(input);
  writeln(count);
  readkey;
end.

в папку с паскалем создаешь файл in.txt в него вносишь фамилии, проверенно только на англиских буквах!

[Irat]

Я не понимаю. Программу ввела, запустила. Запрашивает
Vvedite puti k faylu
Что ввести? Где находится файл с фамилиями?
С:\Dokuments and settings\
А как дальше, незнаю.(на рабочем столе)

Надо так:
C:\Documents and Settings\.....(учтеная запись)\Рабочий стол\...(Имя файла).txt
Список должен состоять из фамилий на латинском алфавите.
Фамилии должны быть записаны в столбец.