Задачка по Паскалю (Строки)

[Altavista]

Дана строка. Преобразовать строку, удалив первую группу подряд идущих цифр, в которой больше двух цифр. Если преобразование невозможно, выдать об этом сообщение с указанием причины.

Задание выполнить в двух вариантах:
а) использую посимвольную обработку строк;
б) с использованием стандартных процедур и функций для работы со строками.

[Altavista]

Вторую часть можно написать примерно так:

program stroka;
// sr(s) - является ли строка s трехзначным числом
function sr(const s:string):boolean;
begin
if length(s)=3 then
sr:=(s[1]>='0') and (s[1]<='9') and (s[2]>='0') and (s[2]<='9') and (s[3]>='0') and (s[3]<='9')
end;
var s:string;
l,i,j:integer;
begin
writeln('Vvedite ishodnyu stroky:');
readln(s);
l:=length(s);
if l<3 then writeln('stroka < 3 simvolov') else
begin
i:=0;
repeat
i:=i+1
until sr(copy(s,i,3)) or (i=l-2);
//writeln(i);
if (i=l-2) and not(sr(copy(s,i,3))) then writeln('v stroke net treh cifr podryad') else
begin
j:=i+2;
while (j<=l) and (s[j]>='0') and (s[j]<='9') do j:=j+1;
//writeln(j);
if j-i=l then writeln('pustaya stroka')
else
begin
delete(s,i,j-i);
writeln(s)
end
end
end
end.

[Altavista]

А первую вот так:
program stroka;
var s:string;
l,i,j:integer;
begin
writeln('Введите исходную строку:');
readln(s);
l:=length(s);
if l<3 then writeln('В строке меньше 3х символов') else
begin
i:=0;
repeat
i:=i+1
until ((s[i]<'9') and (s[i]>'0') and (s[i+1]<'9') and (s[i+1]>'0') and (s[i+2]<'9') and (s[i+2]>'0'))or (i=l-1);
if (i=l-1) and not((s[i]<'9') and (s[i]>'0') and (s[i+1]<'9') and (s[i+1]>'0')) then writeln('В строке нет 3-х подряд идущих цифр')
else
begin
j:=i+2;
while (j<=l) and (s[j]>='0') and (s[j]<='9') do j:=j+1;
//writeln(j);
if j-i=l then writeln('Пустая строка')
else
begin
delete(s,i,j-i);
writeln('Итоговая строка:');
writeln(s)
end
end;
end;
end.