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

[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.

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

[volvo]

В принципе нужно загнать в массив

Зачем? Тебе что, надо хранить все 7 строк? Тогда придется сохранять в массив. Если же нужно просто ввести 7 строк и найти слова с заданной буквой, то:

var
  a: array[1 .. 130] of string;
  s1: string;
  i, j, count: integer;
begin

  for count := 1 to 7 do begin
    readln(s1);
    j := 1; a[1] := '';
    for i := 1 to length(s1) do begin
      if ord(s1[i]) in [65 .. 90, 97 .. 122] then begin { <--- Это вместо четырех AND-ов }
        a[j] := a[j] + s1[i];
      end
      else begin
        j := j + 1; a[j] := '';
      end;
    end;

    for i := 1 to j do begin
      if pos('i', a[i]) > 0 then writeln(a[i]); { <--- А это - вместо цикла перебирающего буквы слова }
    end;
  end;
end.

[Clerick]

Спасибо! Про "массив" я имел ввиду что считывать в цикле, опечатался...

[Clerick]

О! Еще вопрос!

Дана строка, содержащая текст на русском языке. Вывести на экран в алфавитном порядке список всех слов, встречающихся в этом слове.

Это задача будет решаться по принципу слова в массив и его дальнейшая сортировка?

[klem4]

Это задача будет решаться по принципу слова в массив и его дальнейшая сортировка?

Именно так, и задача эта рашалась уже неоднократно, пользуйся поиском.

[Bokul]

Глянь тут