Написать программу, которая будет печатать: а) все слова из списка с, отличные от слова sport: б) текст, составленный из последних букв всех слов; в) все слова, которые включают ровно две буквы b- Pascal(Паскаль)

Tуре слово=array[1..5] of char;
список=array[1..20] of слово;
var с:=список;

type
  slovo = String[5]; // array [1..5] of Char;
  spisok = array [1 .. 20] of slovo;

var
  s: spisok;

  { ********************************************************************** }
  { Формирование списка слов случайным образом }
  { ************************************* }

procedure vvod_texta;
var
  i, j: Integer;
begin
  randomize;
  for i := 1 to 20 do
    s[i] := '';

  for i := 1 to 20 do
    for j := 1 to 5 do
      s[i] := s[i] + Chr(97 + random(25));

end;

{ ****************************************************** }
{ Процедура создания и вывода слов из последних букв }
{ ******************************************* }

Procedure Create_text;
var
  i: Integer;
  st: string;
begin
  st := '';
  for i := 1 to 20 do
    st := st + s[i][5];

  for i := 1 to 20 do
    if random(3) = 2 { Расставляем пробелы случайным образом }
    then
      write(st[i] + ' ')
    else
      write(st[i]);
end;

{ ********************************************************************** }
{ Процедура вывода всех слов не равных слову sport }
{ **************************************** }

procedure vivod_slov_Not_Sport;
var
  i: byte;
  str: string;
begin
  for i := 1 to 20 do
    if s[i] <> 'sport' then
      writeln(s[i]);

end;

{ ********************************************************************** }
{ Процедура вывода слов с 2-мя b }
{ ************************** }

procedure vivod_2b;
var
  i, j, k: Integer;
begin

  for i := 1 to 20 do
  begin
    k := 0;
    for j := 1 to 5 do
      if s[i] = 'b' then
        k := k + 1;

    if k = 2 then
      writeln(s[i]);
  end;
end;