Даны три слова вывести на экран самое короткое.
Я отдаю вам все свои баллы может для вас это хоть что-то значит. Прошу помогите!

// PascalABC.NET 3.2, сборка 1367 от 20.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadlnString(Введите три слова через пробел:).ToWords;
  var k:=a.Select(w-gt;w.Length).ToArray.IndexMin;
  Writeln(Самое короткое слово: ,a[k])
end.

Пример
Введите три слова через пробел: Изучаем язык Pascal
Самое короткое слово: язык

Var 
  a1,a2,a3: string; 
begin
  write (Введите 1-е слово: );
  readln (a1);
  write (Введите 2-е слово: );
  readln (a2);
  write (Введите 3-е слово: );
  readln (a3);
  if (length(a1)lt;gt;length(a2)) and (length(a1)lt;gt;length(a3))
    then
      if length(a1)lt;length(a2) 
        then
          if length(a1)lt;length(a3)
            then writeln(Самое короткое слово: ,a1)
            else writeln(Самое короткое слово: ,a3)
        else
          if length(a2)lt;length(a3)
            then writeln(Самое короткое слово: ,a2)
            else writeln(Самое короткое слово: ,a3)
    else writeln(Все слова одинаковой длины);
end.
---------------------------------------------------------------------
Введите 1-е слово: волк
Введите 2-е слово: олень
Введите 3-е слово: косуля
Самое короткое слово: волк