Составить программу, определяющую какая буква слова 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.