Задание по массивам и строкам.

type mass=array [1..10,1..10] of integer; 
var i,j:integer;
const n=10;
Procedure vivod (var h:mass);
begin
for i:=1 to n do 
    for j:=1 to n do 
        if i+j > n+1 then 
           write(h[i,j]:4);
end;

const N=10;
type Mas=array [1..N,1..N] of integer;
 
procedure Input(var h:Mas);
var i,j:integer;
begin
  for i:=1 to N do
    begin
      for j:=1 to N do
        h[i,j]:=random(50);
    end;
  for i:=1 to N do
    begin
      for j:=1 to N do
        write(h[i,j]:4);
        writeln;
    end;
end;
 
procedure vivod(var h:Mas);
var i,j:integer;
begin
  for i:=1 to N do
    for j:=1 to N do
      if i+j>N+1 then
        write(h[i,j]:4);
end;
 
var h:Mas;
begin
  Input(h);
  writeln;
  vivod(h);
  readln;
end.

uses crt;
const n=10;
var a:array[1..n,1..n] of integer;
    i,j:byte;
begin
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=(i-1)*n+j;
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
writeln('Ниже побочной диагонали:');
for i:=1 to n do
 begin
  for j:=1 to n do
  if j>n-i+1 then write(a[i,j]:4)
  else write(' ':4);{4 пробела}
  writeln;
 end;
readln
end.

uses crt;
var s1,s2:string;
    i,j,n,k:byte;
begin
clrscr;
write('Первое слово: ');
readln(s1);
write('Второе слово слово: ');
readln(s2);
if length(s1)<length(s2) then
 begin
  write('Нельзя!');
  readln;
  exit;
 end;
n:=length(s2);k:=0;
for i:=length(s1) downto 1 do
for j:=length(s2) downto 1 do
if s1[i]=s2[j] then
 begin
  k:=k+1;
  delete(s1,i,1);
  delete(s2,j,1);
 end;
if k=n then write('Можно!')
else write('Нельзя!');
readln
end.