Дана переменная длиной в четыре символа

[AndreiFQ]

Товарищи программисты помогите с решением данной задачи. Я ее решил, она верна, НО ПРЕПОДОВАТЕЛЬ ТРЕБУЕТ ДРУГОЙ СПОСОБ РЕШЕНИЯ, С ИСПОЛЬЗОВАНИЕМ СТРОКОВЫХ ТИПОВ ДАННЫХ (ИСПОЛЬЗОВАТЬ length(*) или pos(*1,*)). Пожалуйста помогите, ОЧЕНЬ НУЖНО!!!!!!


Дана переменная длиной в четыре символа. Определить, есть ли в ней символ "К". Напечатать соответствующее сообщение.

program zad_1;
uses crt;
var s:string[4];
i:integer;
t:boolean;
begin
clrscr;
write('Введите строку (длина - 4 символа): '); readln(s);
t:=false;
for i:=1 to 4 do
if (ord(s[i])=75) or (ord(s[i])=138) then
begin
t:=true; break;
end;
if t then writeln('в строке есть символ K')
else writeln('в строке нет символа K');
readkey;
end..

[[CODER]]

LENGTH();

program zad_1;
uses crt;
var s:string[4];
i:integer;
t:boolean;
begin
   clrscr;
   write('Введите строку (длина - 4 символа): ');
   readln(s);
   t:=false;
   for i:=1 to lenth(s) do
      if (s[i]='K') then
         begin
              t:=true; 
              break;
         end;
   if t then 
       writeln('в строке есть символ K')
   else 
        writeln('в строке нет символа K');
  readkey;
end.

POS();

program zad_1;
uses crt;
var s:string[4];
i:integer;
begin
   clrscr;
   write('Введите строку (длина - 4 символа): ');
   readln(s);
   t:=false;
   i:=pos('K',s);
   if i>0 then 
       writeln('в строке есть символ K')
   else 
        writeln('в строке нет символа K');
  readkey;
end.