Строки, Расширение задачи Опции

[Clerick]

Здравствуйте! Помогите разобраться в одном вопросе! Есть прога, которая определяет слова с определенной буквой (в данной задаче i) и выводит на экран. Оан работает только для одной строки, а требуется для 7 строк. В принципе нужно загнать в массив, вот только как я не понимаю...

var a:array[1..130] of string;
   s:char;
   s1:string;
   i,j,c:integer;
begin
read(s1);
j:=1;
for i:=1 to length(s1) do
begin
  if (ord(s1[i])>=65) and (ord(s1[i])<=90) or (ord(s1[i])>=97) and (ord(s1[i])<=122) then
    begin
    a[j]:=a[j]+s1[i];
    end else
    J:=j+1;
end;
for i:=1 to j do begin
 for c:=1 to length(a[i]) do if a[i,c]='i' then begin writeln(a[i]); break; end;
 end;
end.

Заранее спасибо!