В заданном предложении подсчитать, какая из букв первая или последняя встречается чаще — Pascal(Паскаль)

program try;
var
s :string;
i,k,j :integer;
begin
k:=0; j:=0;
readln(s);
for i:=1 to length(s) do
begin
if s[i]=s[1] then
k:=k+1;
if s[i]=s[length(s)] then
j:=j+1;
end;
if k=j then
writeln('Обе');
if k>j then 
writeln('Первая');
if k<j then
writeln('Последняя');
end.