Тема: читання текстового файлу, підрахунок літер
потрібно прочитати з файлу 7 рядків тексту. файл у котрому 2 букви S вивести на екран.
не можу знайти помилку. компіляція проходить. запускається і нічого не пише. шлях файлу встановлений правильно. у файлі є рядки з двома S
var f:text;
a: array [1..7] of string[70];
b: array [1..7] of integer;
i,j:integer;
begin
assign (f,'D:\f.txt');
reset(f);
i:=1;
while not eof(f) do
begin
while not eoln (f) do read (f,a[i]);
i:=i+1;
end;
for i:= 1 to 7 do writeln (a[i]);
for i:=1 to 7 do
for j:=1 to 70 do
if copy( a[i],j,1)='s' then b[i]:=b[i]+1;
for i:=1 to 7 do
if b[i]=2 then
writeln (a[i]);
close(f);
end.
