Паскаль(строки)

[Roll1n]

Выделить из каждой строки и напечатать подстроки расположенные между знаками /* и */

program stroka;
uses crt;

type
	mass=array [1..100]  of string;
var
	n,i,j,k,l:integer;
	c:char;

s,s1:mass;
begin
	writeln('введите кол-во строк');
	readln(k);
	writeln('введите ,'n', строк');
	for i:=1 to n do

	readln(s[i]);
	writeln;
for i:=1 to n do
	begin
		l:=length(s[i]);
		j:=1;
		k:=0;
		while j<=l do
		begin
			if (s[i]>'/*') and (s[i]<'*/') then

Это максимум,что я смог сделать.
Помогите доделать

[tools]

для одной строки, и для того случая, если символы "/*" и "*/" введены верно, выглядит примерно вот так:

uses crt;
var
s,str:string;
i,a1,b1,a2,b2:integer;
begin
clrscr;
write('Введите строку: ');
readln(s);
a1:=pos('/',s);
b1:=pos('*',s);

if b1-a1=1 then
   delete(s,a1,2);

a2:=pos('*',s);
b2:=pos('/',s);

if b2-a2=1 then
   delete(s,a2,2);
 
str:=copy(s,a1,a2-a1);
writeln(#10,str);

end.

Остальное постарайся додумать сам...