Задача на нахождение буквы

[Putin-mode]

Добрый день!

Сам давно не садился за кодинг, не до этого.
Но моему знакомому нужно решить 1 задачу на паскале(если честно завтра ему сдавать, вернее сегодня).

1. Известно что входная последовательность содержит буквы латинского алфавита, среди которых одна пропущена. Порядок букв неизвестен, но каждая буква встречается ровно один раз.
определить пропущенную букву.
Входные данные 25 латинских букв в произвольном порядке.
Результат буква латинского алфавита.
пример. qwertyuiopasdfghjklzxcvbn и недостающая m.

Ну на пример я ввожу все буквы одна за одной, и вот подходит время набрать 25 букву, и как я ее только набираю, на экран выводится 26, та которой не хватает.

Заранее спасибо!

[Plague]

ну если тема строки, то вот один из вариантов

var s,s1:string;
    c:char;
    i,p:integer;   
begin
  s1:='';
  for c:='a' to 'z' do s1:=s1+c;
  readln(s);
  for i:=1 to length(s) do
    begin
      p:=pos(s[i],s1);
      if p>0 then delete(s1,p,1);
   end;
  writeln(s1);
end.