Паскаль АВС! Составить программу,определяющую какая буква слова x(первая или последняя) чаще встречается в слове y. 

VAR    s: String;    k1,k2,i: LongInt; BEGIN    Read(s);        k1 := 0; k2 := 0;    for i := 1 to Length(s) do begin       if (s[i] = s[1]) then Inc(k1);       if (s[i] = s[Length(s)]) then Inc(k2);    end;        if (k1 > k2) then Write('Первая буква встречается чаще последней буквы.');     if (k1 < k2) then Write('Последняя буква встречается чаще первой буквы.');     if (k1 = k2) then Write('Первая и последняя буквы встречаются одинаковое кол-во раз.');  END.