Замена слов аббревиатурами

[Moroshka21]

Нужно заменить все слова 'так как', 'и тому подобное', 'то есть', 'и так далее' их аббревиатурами, вот моя программа, она работает неправильно, исправьте пожалуйста, что в ней не так

var
  st, st1, st11, st2, st22, st3, st33, st4, st44: string;
  i: byte;

procedure change(i: byte; var s, s1, s2: string);
begin
  i := pos(s1, s);
  delete(s, i, length(s1));
  insert(s2, s, i);
end;

begin
writeln('Введите строку: '); readln(st);
begin
for i:= 1 to length(st)-1 do
  case st of 
    'так как': 
      begin
        st11 := 'т.к.';
        change(i, st, st1, st11);
      end;
    'и тому подобное':
      begin
        st22 := 'и т.п.';
        change(i, st, st2, st22);
      end;
    'то есть':
      begin
        st33 := 'т.е.';
        change(i, st, st3, st33);
      end;
    'и так далее':
      begin
        st44 := 'и т.д.';
        change(i, st, st4, st44);
      end;
  end;
  writeln('Новая строка: ',st); 
end;
end.

[Son Of Pain]

В паскале нельзя делать case по строкам.
Просто найди нужное через pos.

[newerow1989]

var
  st: string;
  i: byte;

procedure change(i: byte; var st: string; sAlt, sNew:string);
begin
  If Copy(st,i,Length(sAlt))<>sAlt then
     Exit;
  delete(st, i, length(sAlt));
  insert(sNew, st, i);
end;

begin
writeln('Введите строку: '); readln(st);
for i:= 1 to length(st)-1 do
begin
  change(i,st,'так как','т.к.');
  change(i,st,'и тому подобное','и т.п.');
  change(i,st,'то есть','т.е.');
  change(i,st,'и так далее','и т.д.');
end;
  writeln('Новая строка: ',st);
end.

[Moroshka21]

Спасибо, а вы не подскажите, как сделать так, чтобы программа учитывала регистр?