Паскаль,файлы,плизззззззз

[DjDeniels-61]

Помогите,плиз оч нужно на экзамен....

1)Имеется текстовый файл. Найти: количество строк, начинающихся с буквы «А» и «а».

2)в существующем типизированном файле,элементами которого явл. отдельные слова, изменить на заданное слово: первое слово.


Заранее огромное спасибо!!!

[Sazary]

Ну вот вам первая.

uses crt;
var
f : text;
cnt : integer;
str : string;
begin
clrscr;
assign(f,'test.txt');
reset(f);
cnt := 0;
while not eof(f) do
 begin
 readln(f,str);
 if (str[1]='A') or (str[1]='a') then
  inc(cnt);
 end;
close(f);
writeln('Count of strings: ',cnt);
readln;
end.

Вторую сами пробуйте.