Массив, матрица, строки.

uses
  crt;
const
  m=19;
var
  a:array[1..m] of integer;
  i,max,count0:integer;
begin
  clrscr;
  count0:=0;
  {çàäàåì ìàññèâ}
  writeln('Èñõîäíûé ìàññèâ:');
  for i:=1 to m do
  begin
    a[i]:=random(8)-4;
    if a[i]=0 then
      inc(count0);
    write(a[i],' ')
  end;
  writeln;
  {ïðîâåðÿåì à ñòîèò ëè äàëüøå ïðîäîëæàòü?}
  if count0=0 then
  begin
    writeln('Â äàííîì ìàññèâå íåò 0!');
    exit
  end;
  {íàõîäèì ìàêñèìóì}
  max:=a[1];
  for i:=2 to m do
    if a[i]>max then
      max:=a[i];
  {ìåíÿåì 0 â ìàññèâå û âûâîäèì åãî}
  writeln('Ïîëó÷åííûé ìàññèâ:');
  for i:=1 to m do
  begin
    if a[i]=0 then
      a[i]:=max;
    write(a[i],' ')
  end;
  writeln
end.

var
  s:string;
  cf,cl,i:integer;
begin
  cf:=0;
  cl:=0;
  readln(s);
  for i:=1 to length(s) do
  begin
    if s[i]=s[1] then
      inc(cf);
    if s[i]=s[length(s)] then
      inc(cl)
  end;
  if s[i]=s[length(s)] then
    writeln('Ïåðâàÿ è ïîñëåäíÿÿ îäíà è òàæå áóêâà è îíà âñòðå÷àåòñÿ: ',cf)
  else
  begin
    writeln('Ïåðâàÿ: ',cf);
    writeln('Ïîñëåäíÿÿ: ',cl)
  end
end.

uses crt;
const
  str=4;{êîëè÷åñòâî ñòðîê}
  sto=4;{êîëè÷åñòâî ñòîëáöîâ}
var
  a:array [1..str,1..sto] of integer;
  i,j:integer;
begin
  clrscr;
  {çàïîëíÿåì è âûûâîäèì ìàññèâ}
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to str do
  begin
    for j:=1 to sto do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j],' ')
    end;
    writeln
  end;
  {ðàáîòàåì ñ íå÷åòíûìè ñòîëáöàìè}
  for i:=1 to str do
    if odd(i)=false then
      for j:=1 to sto do
        a[j,i]:=sqr(a[j,i]);
  {âûâîäèì ìàòðèöó}
  writeln('Ïîëó÷åííàÿ ìàòðèöà:');
  for i:=1 to str do
  begin
    for j:=1 to sto do
      write(a[i,j],' ');
    writeln
  end;
end.