Распечатать анкетные данные студентов, получивших в первую сессию все оценки 5.в паскале

Var a,b,c,d,i: longint; s: string; m: array[1..100000] of string; begin readln(a); for i: =1 to a do begin readln(s); if s[length(s)]='5' then begin s[length(s)]: =' '; m[i]: =s; end; end; for i: =1 to a do begin if m[i]< > '' then writeln(m[i]); end; end.

великобритания - лондон

греция - афины

италия - рим

нидерланды -

франция - париж

программа на паскале:

program a1;

var i, j : integer;

      s : real;

      a: array [1..5, 1..6] of real;

      b: array [1..6] of real;

begin

  for i: =1 to 5 do

    for j: =1 to 6 do

        readln(a[i,j]);

  for j: =1 to 6 do

    begin

        s: =0;

        for : =1 to 5 do

            s: =s+a[i,j];

        b[j]: =s

    end;

  write ('полученный массив в: ');

  for j: =1 to d do

    write(b[j]);

  readln

end.