Программисты объясните проги

program D__Z;
uses
  crt;
var
  l:string;
  i,k:integer;
  f:boolean;
begin
  clrscr;
  write ('Dan text');
  write('Esli v texte net simvola <<*>>, to ostavit text bez izmenenii,  inashe kazhduu iz malih latinskih bukv');
  writeln('predidushih pervomu vhozhdeniu <<*>>,');
  writeln('zamenit na simvol <</>>');
  writeln;
  writeln ('vvedite text');
  writeln;
  readln(l);
  f:=true;
  for i:=1 to length(l) do
    if l[i]='*' then
      begin
        f:=false;
        break;
      end;
  if not f then
    begin
      k:=1;
      while l[k]<>'*' do
        begin
          if (l[k]>='a') and (l[k]<='z') then
            l[k]:='/';
            inc(k);
        end;
    end;
  writeln;
  writeln(l);
  readkey
end.

program D__Z;
uses
  crt;
var
  A:array[1..100,1..100] of integer;
  j,i,n,m:integer;
begin
  writeln('Dana matrica A[n,n]');
  writeln('Zamenit nuliami vse elementi, raspolozhennie na glavnoi dioganali ');
  write('dioganal-sverhu vniz i sleva na pravo');
  writeln('i vishe nee');
  writeln;
  randomize;
  writeln('vvedite kolichestvo strok i stalbcov');
  read(n);
  writeln('Poluchennaia matrica');
  for i:=1 to n do
    for j:=1 to n do
      begin
        A[i,j]:=random(99)+1;
        gotoxy(3+i*3,6+j*2);
        write(A[i,j]);
      end;
        readkey;
        writeln;
  for i:=1 to n do
    for j:=1 to n do
      begIn
        if (i<j+1)then
          A[i,j]:=0;
      end;
  for i:=1 to n do
      for j:=1 to n do
        begin
          gotoxy(30+i*3,6+j*2);
          write(A[j,i]:3);
        end;
  readkey;
  clrscr;
end.

program Z__T;
Uses crt;
Var
  C:array [1..100] of integer;
  Z:array [1..100] of integer;
  i,n,j,k:byte;
begin
  clrscr;
  writeln('Sozdat massiv C(n)');
  writeln('Sozdat novii massiv Z(n) kotopii vivodot na ekran otricatelnie elementi massiva C(n)');
  writeln('vvedite kolishestvo elementa ');
  read(n);
  write ('massiv C ');
  randomize;
  k:=0;
  j:=0;
  for i:=1 to n do
    begin
      C[i]:=random(199)-99;
      write(C[i]:5);
    end;
  for i:=1 to n do
    if C[i]<0 then
      begin
        j:=j+1;
        Z[j]:=C[i];
        k:=k+1;
      end;
  writeln;
  write ('otricatelnie elementi massiva Z');
  for j:=1 to k do
    write (Z[j]:5);
    readkey
end.