Дана матрица и дана произвольная строка символов

var
s:array [1..100] of string;
i,n,m,d:integer;
begin
write('Введите размерность строки: ');
read(n);
writeln;
write('Введите строку: ');
for i:=1 to n do
read(s[i]);
writeln;
writeln('Исходная строка: ');
for i:=1 to n do
write(s[i]);
writeln;
if (n mod 2=0) then begin
writeln('Downto: ');
for i:=n downto 1 do
write(s[i])
end
else
write('Длина нечетная');
end.

uses crt;
var a: array [1..7,1..7] of integer;
    b: array [1..7] of integer;
    i,j: integer;
begin
writeln('Дана матрица');
for i:=1 to 7 do
    begin
    for j:=1 to 7 do
        begin
        a[i,j]:=random(8);
        write(a[i,j]:3);
        end;
    writeln;
    end;
for j:=1 to 7 do
    b[j]:=0;
for j:=1 to 7 do
    for i:=1 to 7 do
        if a[i,j]=j then b[j]:=j;
writeln('Массив В');
for j:=1 to 7 do
    write(b[j]:3);
end.

uses crt;
var s,sl,sn,sp: string;
    i,j,k: integer;
begin
write('s=');
readln(s);
s:=s+' ';
sl:='';
sp:='';
sn:='';
for i:=1 to length(s) do
    if s[i]<>' ' then sl:=sl+s[i] else
       begin
       if (length(sl) mod 2=0) and (length(sl)<>0) then
          begin
          inc(k);
          for j:=1 to length(sl) do
          sp:=sl[j]+sp;
          sn:=sn+sp+' ';
          sl:='';
          sp:='';
          end else if (length(sl)<>0) then
          begin
          sn:=sn+sl+' ';
          sl:='';
          sp:='';
          end;
       end;
if k=0 then write('Нет слов четной длины') else write('s=',sn);
end.