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

var x,temp:string;      first,last:char;      k1,k2:integer; begin    write ('X = ');    readln (x);    k1:=0;    k2:=0;    first:=x[1];    last:=x[length(x)];    temp:=x;    while (pos(first,temp)>0) do     begin       inc(k1);       delete (temp,pos(first,temp),1);     end;    temp:=x;    while (pos(last,temp)>0) do     begin       inc(k2);       delete (temp,pos(last,temp),1);     end;    if (k1>k2) then writeln ('First') else     if (k2>k1) then writeln ('Last') else       writeln ('Equal'); end.