Паскаль АВС процедуры, Процедура ввода и нахождения длины строки. Опции

[nana1]

Даны строки разной длины S1, S2, S3, S4, S5. Разработать:
1) процедуру ввода строки и нахождения длины каждой строки;
2) процедуру определения номера позиции символа “*” в каждой строке. Выдать на экран в программе полученные длины строк и номера позиций символа “*” в каждой строке. В программе вычислить общую длину всех строк.

Программа без процедуры получается вот такая огромная! Понимаю, что если написать процедуру все будет куда короче. НО как это сделать не пойму. Подскажите, прошу.

program zal6;
type   mas=array[1..50]  of  integer;
var
s:mas;
s1,s2,s3,s4,s5: string[50];
i,j,n:integer;
begin 
write(' vvod s1 = '); readln(s1);
writeln('kol-vo simvolov:',length(s1):6);
I:=0;  J:=0;  n:=ORD(s1[0]);
While  i<=n do 
Begin 
if s1[i]='*' then  
begin 
j:=j+1; 
writeln('simvol "*" po schetu ',i:3, '-й'); end;
i:=i+1;     
End; 
write(' vvod s2 = '); readln(s2);
writeln('kol-vo simvolov:',length(s2):6);
I:=0;  J:=0;  n:=ORD(s2[0]);
While  i<=n do 
Begin 
if s2[i]='*' then  
begin 
j:=j+1; 
writeln('simvol "*" po schetu ',i:3, '-й'); end;
i:=i+1;     
End; 
write(' vvod s3 = '); readln(s3);
writeln('kol-vo simvolov:',length(s1):6);
I:=0;  J:=0;  n:=ORD(s3[0]);
While  i<=n do 
Begin 
if s3[i]='*' then  
begin 
j:=j+1; 
writeln('simvol "*" po schetu ',i:3, '-й'); end;
i:=i+1;     
End; 
write(' vvod s4 = '); readln(s4);
writeln('kol-vo simvolov:',length(s4):6);
I:=0;  J:=0;  n:=ORD(s4[0]);
While  i<=n do 
Begin 
if s4[i]='*' then  
begin 
j:=j+1; 
writeln('simvol "*" po schetu ',i:3, '-й'); end;
i:=i+1;     
End; 
write(' vvod s5 = '); readln(s5);
writeln('kol-vo simvolov:',length(s5):6);
I:=0;  J:=0;  n:=ORD(s5[0]);
While  i<=n do 
Begin 
if s5[i]='*' then  
begin 
j:=j+1; 
writeln('simvol "*" po schetu ',i:3, '-й'); end;
i:=i+1;     
End; 
end. 

Сообщение отредактировано: nana1 - 10.02.2011 20:10