Lazarus
Виконати проект. Проаналізувати результат.
procedure TForm1.Button1Click(Sender: TObject);
begin
if RadioButton1.Checked
Then Form1.Caption:='Заголовок изменен'
else if RadioButton2.Checked
Then Form1.Color:=clRed
else begin
Form1.Width:=600; Form1.Height:=400;
end;end;

import random

while True:

   s = int(input('Введите строку: '))

   d = int(input('Введите стобец: '))

   if s in range(5):

       if d in range(5):

           break

   print('Промежуток [0:4]')

array = []

for _ in range(5):

   b = []

   for _ in range(5):

       b.append(random.randint(-10, 10))

   print(f'{"  ".join(str(num) for num in b)}')

   array.append(b)

print('Задание 2:')

print(f'{"  ".join(str(num) for num in array[s])}')

print('Задание 3:')

st = ''

for i in range(5):

   st += str(array[i][d]) + '  '

print(st)

print('Задание 4:')

m_el = 0

p_el = 0

for i in range(5):

   for j in range(5):

       if array[i][j] < 0:

           m_el += 1

       if array[i][j] > 0:

           p_el += 1

print('Положительных элементов: ', p_el)

print('Отрицательных элементов: ', m_el)

Программу надо сформатировать и тогда её структура будет видна лучше.
А чтобы понять, как идет выполнение, в нужных точках ставим промежуточную выдачу - это называется "трассировкой".

var
  s, k: integer;
label
  met;
begin
  s:=-12;
  k:=90;
  Writeln('s=',s,', k=',k);
  s:=s+10;
  Writeln('s=',s);
met:
  Writeln('Метка met:');
  k:=k+10; Write('k=',k);
  if k<200 then s:=50 else s:=s+k;
  Writeln(', s=',s);
  if k<200 then goto met;
  Writeln('Результат: s=',s)
end.

Результат выполнения программы:
s=-12, k=90
s=-2
Метка met:
k=100, s=50
Метка met:
k=110, s=50
Метка met:
k=120, s=50
Метка met:
k=130, s=50
Метка met:
k=140, s=50
Метка met:
k=150, s=50
Метка met:
k=160, s=50
Метка met:
k=170, s=50
Метка met:
k=180, s=50
Метка met:
k=190, s=50
Метка met:
k=200, s=250
Результат: s=250