Плииз! Люди решите! Напишите программу определяющую какая из букв…

На паскале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.