Текстовый файл f разбит на непустые строки. Подсчитать число строк, начинающихся и оканчивающихся одним и тем же символом.


Program kontr3;
var t:text; s:string; kol:integer;
begin
kol:=0;
writeln;
assign(t,'t.txt');
reset(t);
while not eof(t) do
begin
readln(t,s);
writeln(s);
if s[1]=s[length(s)] then inc(kol);
end;
close(t);
writeln(Kol,’ strok, gde 1 bukva=posledney bukve’);
writeln(’by Adminadmin.ru’);
readln;
end.