Паскаль, строки процедуры

[gennadii]

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

[gennadii]

Program gennadii;
Uses crt;
Var S1,s2:string;

  procedure stroka(pS:string);
          var pSz, pSc:string;   i:integer;
  begin
   pSz:=''; pSc:='';
   for i:=1 to length(pS) do
   begin
   if (pS[i] >='a') and (pS[i]<='z' ) then pSz:=pSz+pS[i];
   if (pS[i] >='A') and (pS[i]<='Z' ) then pSc:=pSc+pS[i]+'*';
   end;
   writeln(pSz);
   writeln (pSc);
  end;


begin
write('vasha stroka:  ') ; readln(s1);
stroka(S1);
write('vtoraya stroka:  ') ; readln(s2);
stroka(S2);
readln;
end.

так верно?



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

задание у Вас какое-то не очень внятное...
я бы прочитал его так, что нужно в процедуру передать две строки и она должна создать и вернуть две новые строки по заданным правилам.

Если так прочитать задание, тогда у Вас программа не соответствует этому заданию.
А в остально, ваш код выглядит вполне себе простым и рабочим...