Массивы , матрицы,символы!

uses crt;
var z,a:array[1..10]of real;
i,k:integer;
b:real;
 
begin
 clrscr;
 write('Введите массив Z -> ');
 for i:=1 to 10 do read(z[i]);
 readln;
 k:=0;
 for i:=1 to 5 do if z[2*i]*z[2*i-1]>0 then
 begin
  b:=z[2*i];
  z[2*i]:=z[2*i-1];
  z[2*i-1]:=b;
  inc(k);
  if z[2*i]>z[2*i-1] then a[k]:=z[2*i] else a[k]:=z[2*i-1];
 end else
 begin
  inc(k);
  a[k]:=z[2*i-1];
  inc(k);
  a[k]:=z[2*i];
 end;
 
 writeln('Массив Z');
 for i:=1 to 10 do write(z[i]:0:3,' ');
 writeln('Массив A');
 for i:=1 to k do write(a[i]:0:3,' ');
 readln;
end.

uses crt;
const n=4;
      m=6;
var z:array[1..n,1..m] of integer;
    i,j:integer;
begin
clrscr;
randomize;
writeln('МСатрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    z[i,j]:=random(20);
    write(z[i,j]:4);
   end;
  writeln;
 end;
writeln;
writeln('Элементы, которые в строке больше предыдущего и меньше следующего:');
for i:=1 to n do
for j:=2 to m -1 do
if (z[i,j]>z[i,j-1])and(z[i,j]<z[i,j+1]) then write(z[i,j],' ');
readln
end.

uses crt;
var s1,s2:string;
    i:byte;
begin
clrscr;
writeln('Введите первую строку');
readln(s1);
writeln('Введите вторую строку');
readln(s2);
for i:=length(s1) downto 1 do
if pos(s1[i],s2)>0 then delete(s1,i,1);
writeln('Первая строка после удаления:');
write(s1);
readln
end.