Удвоить каждый из первых пяти цифровых символов и удалить 5 последних латинских букв

[gred]

Попросили сделать лабу:
Удвоить каждый из первых пяти цифровых символов и удалить 5 последних латинских букв
Не пойму смысл что надо сделать, может кто понял задание?
Помогите плз.
{Паскаль}

[eoln]

Примерно так

//S - исходная строка
k := 0;
NewS := '';
for i := 1 to length(s) do begin
  s0 := copy(s, i, 1);
  if (k<=5) and (s0>='0') and (s0<='9') then begin
    inc(k);
    val(s0, w, q);
    w := w*2;
    str(w, s0)
  end;
  NewS := NewS + s0;
end;
//Далее уберём 5 последних латинских символов
k := 0;
S := '';
for i := length(NewS) downto 1 do begin
  s0 := copy(NewS, i, 1);
  if ((s0>='a')and(s0<='z'))
  or ((s0>='A')and(s0<='Z'))
  and (k<5) then inc(k)
  else S := s0 + S;
end;
write(S)

[Arkuz]

Я так понял, что вводишь строку. затем...

Сообщение от gred

Удвоить каждый из первых пяти цифровых символов

Здесь нужно либо арифметичекую операцию сделать, либо просто добавить рядом такой же элемент.
текущая строка: 12345привет
1. 1122334455привет
2. 246810привет

Сообщение от gred

удалить 5 последних латинских букв

получается так: из приветhello получается привет

И в итоге сначала удвоить и потом снять 5 последних латинских цифр...
Я это так понимаю

[gred]

спс мозги ваше не варят друзья надовали лаб )

[gred]

чтот неработает он удаляет все латинские символы а не 5 последних

uses crt;
var
s,news,s0:string;
k,i,w,q,n:integer;
begin
readln(s);
 //S - исходная строка
 k := 0;
 n:=0;
 NewS := '';
 for i := 1 to length(s) do begin
   s0 := copy(s, i, 1);
   if (k<=4) and (s0>='0') and (s0<='9')  then begin
     inc(k);
     val(s0, w, q);
     w := w*2;
     str(w, s0);
     n:=n+1;
   end;
   NewS := NewS + s0;
 end;
 //Далее уберём 5 последних латинских символов
 k := 1;
 S := '';
 for i := length(NewS) downto 1 do begin
   s0 := copy(NewS, i, 1);
   if ((s0>='a')and(s0<='z'))
   or ((s0>='A')and(s0<='Z'))
   and (k<4) then inc(k)
   else S := s0 + S;
 end;
 write(S);
 end.

[eoln]

Извиняюсь, в форуме писал.
Вот работает - скобки добавил

var n,i,j,q,w,k:integer;
s, s0, news: string;
begin
readln(s);
 k := 0;
 n:=0;
 NewS := '';
 for i := 1 to length(s) do begin
   s0 := copy(s, i, 1);
   if (k<=4) and (s0>='0') and (s0<='9')  then begin
     inc(k);
     val(s0, w, q);
     w := w*2;
     str(w, s0);
     n:=n+1;
   end;  
   NewS := NewS + s0;  
 end;  
 writeln(news);

 k := 0;
 S := '';
 for i := length(NewS) downto 1 do begin
   s0 := copy(NewS, i, 1);
   if (((s0>='a')and(s0<='z'))
   or ((s0>='A')and(s0<='Z')))
   and (k<=4) then inc(k)
   else S := s0 + S;
 end;
 write(S);
 readln
end.