Работа со списком - вывести слова согласно условиям

[alex2008ean]

Вот собственно задание:

Туре слово=array[1..5] of char;
список=array[1..20] of слово;
var с:=список;
Написать программу, которая будет выводить:
а) все слова со списка с, отличные от слова sport:
б) текст, составленный с последних букв всех слов;
в) все слова, которые включают ровно две буквы b.

[Rozalinda]

Type = array [1..5] of char;
TList = array [1..20] of TWord;
var c: TList;
i: integer;
begin
for i := 1 to 20 do
  if c[i] <> 'sport' then writeln(c[i])
end;

это под а)
только вопрос, откуда список берется? его вводить надо?

[Rozalinda]

ой, сорри, не обратила внимания на массив чаров.. ))

Type TWord = array [1..5] of char;
TList = array [1..20] of TWord;
var c: TList;
i,j: integer;
s: string;
begin
for i := 1 to 20 do
begin
 s :='';
 for j := 1 to 5 do s := s + c[i];
  if s <> 'sport' then writeln(s)
end;
end;

[Rozalinda]

for i := 1 to 20 do
  begin
      b := 0;
      for j := 1 to 5 do if c[i,j] = 'b' then inc(b);
      if b = 2 then
      begin
        for j := 1 to 5 do write(c[i,j]);
        writeln;
      end;
  end;

под в), а б я что-то не совсем поняла...

[Rozalinda]

вывести слово из последних букв?
тогда будет for i := 1 to 20 do write(c[i,5]);

[alex2008ean]

Rozalinda, огромное вам спасибо за помощь!!!