Прога есть,но не пашет...подскажите что не правильно

[Chief]

Даны символы s1,s2,...Известно,что символ s1 отличен от пробела и что среди s2,s3...имеется хотя бы один пробел.Рассматриваются s1,...,sn-символы,предшествующие первому пробелу(n заранее неизвестно).Преобразовать последовательность s1,...sn,удалив все символы,не являющиеся буквами или цифрами,и заменив каждую большую букву одноименной малой

procedure t;
var c:char;
begin
c:='';
s:='';
writeln('Задайте последовательность символов:');
while c<>' ' do
begin
read(c);
s:=s+c;
end;
delete(s,length(s),1);{удаление последнего символа}
end;
procedure r;
var i:byte;
begin
i:=0;
while i<=length(s)
begin
i:=i+1;
case s[i] of
'A'..'Z','А'..'П':s[i]:=chr(ord(s[i])+32);
'Р'..'Я':S[I]:=chr(ord(s[i]+80);
'Ъ':S[I]:='ъ';
'a'..'z','а'..'п','р'..'я','ъ','0'. .'9':;
else
delete(s,i,1);{где/с какой/сколько}
end;
end;
var s:string;
begin
t;
r;
writeln('Итоговая строка:');
write(s);
readln;
readln;
end.

и ещё там вместо твёрдого знака должна стоять буква "Ё"

[Викдон]

держи:

var s:string;

procedure t;  {Процедура ввода последовательности}
var c:char;
 begin
   c:='0';
   s:='';
     writeln('Задайте последовательность символов: ');
      while c<>#13 do
       begin
        read(c);
        s:=s+c;
       end;
   delete(s,length(s),1);  {удаление последнего символа}
 end;


procedure r;  {Процедура преобразования последовательности}
 var i:byte;
  begin
    i:=0;
      while i<=length(s) do
       begin
        i:=i+1;
          case s[i] of
           'A'..'Z','А'..'П': s[i]:=chr(ord(s[i])+32);
           'Р'..'Я': s[i]:=chr(ord(s[i])+80);
           'Ё':s[i]:='ё';
           'a'..'z','а'..'п','р'..'я','ё','0'..'9':;
          else
           delete(s,i,1);
         end;
        end; {while}
    end;

begin
t;
r;
writeln('Итоговая строка:');
write(s);
readln;
readln;
end.

[Викдон]

(cherez obratnuu matricu) ???

[Chief]

Сообщение от Викдон

(cherez obratnuu matricu) ???

Не3наю насчет обратной матрицы,но вроде задачка пашет!Спасибо огромное!