Строки,паскаль

[Mischa2001]

Напишите программу выясняющую какая из букв ,первая или последняя встречается во введёной строке чаще .
Помогите решить дорешать!

Program z;

Uses crt;

var s:string;

i,k1,k2:integer;

Begin

ClrScr;

Writeln('введите строку');

readln(s);

For i:=1 to length(s) do

begin

[Arigato]

Во Фриланс!