Помогите сделать программу на паскале:

+ 0 -

Deniska2012

06 авг. 2015 г., 20:22:15 (8 лет назад)

program detector;

var  s: string;
        l: byte;
begin 
   write('Введите слово: '); 
   readln(s);  l := length(s); 
   if l < 2 then 
      writeln('Введите корректное слово!') 
   else 
   begin   
      while (l <> 1) and (s[l] <> s[1]) do 
         begin     
             s := copy(s, 1, l - 1);     
              l := length(s);   
         end; 
    if l = 1 then       
       writeln('Буква не встречается повторно!') else 
       writeln('Буква встречается повторно!'); 
    end;
end.