плиииз!!!люди решите!!!напишите программу определяющую какая из букв первая или последняя встречаются в заданном слове чаще

На паскалеvar s:string; f,l,i:integer;beginread(s);for i:=2 to length(s)-1 do begin if s[i]=s[1] then f:=f+1; if s[i]=s[length(s)] then l:=l+1 end;if f>l then write('Первая')else if l>f then write('Последняя')else write('Одинаково')end.