При помощи какой инструкции можно вызвать подпрограмму вычисляющую площадь комнаты

Доброго времени суток)

Помогите мне, поалуйста ( Не могу понять почему она не работает!!!)

Постановка задачи: «В зале продаж магазина, торгующего лакокрасочными покрытиями, для повышения сервиса обслуживания клиентов необходимо установить компьютер с программой для определения потребного количества краски для окраски стен.
Требуется создать Windows-приложение для вычисления площади стен комнаты клиента, имеющей форму прямоугольного параллелепипеда. Кроме того, проект должен позволять вводить необходимое количество краски для покраски 1 кв.м с помощью кисти или валика, объем одной банки краски в граммах и вычислять потребное количество банок краски для покраски стен комнаты. Предусмотреть ввод цен одной банки краски для расчета суммарной стоимости все банок, необходимых для ремонта.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45

Public Class Form1
 
    Sub BtnS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnS.Click
        Dim A As Single
        Dim h As Single
        Dim S As Single
 
 
        A = Val(Trim(TxtA.Text))
        h = Val(Trim(Txth.Text))
        S = 4 * A * h
 
        LabS.Text = "Площадь стен комнаты =    " & Str(S) & " кв.м "
 
        LabS.Visible = True
 
 
 
 
    End Sub
 
    Sub ButSum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButSum.Click
        Dim n As Single
        Dim V As Single
        Dim p As Single
        Dim Sum As Single
        Dim S As Single
 
        S = LabS.Text = Str(S)
 
 
        n = Val(Trim(TxtM.Text))
        V = Val(Trim(TxtV.Text))
        p = Val(Trim(TxtPrice.Text))
 
 
        Sum = ((n * S) / V) * p
 
        LabSum.Text = "К оплате =  " & Str(Sum) & " рублей"
        LabSum.Visible = True
 
 
 
    End Sub
End Class

program Labirint;
uses
crt;
 
 type
   arr =  array[1..10,1..10] of char;
 
procedure vyvodarr (a: arr; n: integer);  // Процедура для вывода матрицы на экран.
var
  i,j: integer;
begin
for i:=1 to n do
    begin
    for j:=1 to n do
      begin
      Write(a[i,j]:3);
      end;
    Writeln;
    end;
Writeln;
end;
 
var
  //a1: arr = (('*','*','*','*','*'),('*','*','.','.','*'),('*','.','*','.','*'),('*','.','.','*','*'),('*','*','*','*','*'));
  a1: arr;  // Переменная для хранения исходного лабиринта.
  b1: arr;  // Переменная для хранения промежуточных переменных при прохождении лабиринта.
  k: integer; // Переменная для хранения значения количества посещенных ячеек.
  i,j,ip,jp: integer; // Промежуточные переменные для организации циклов.
  ibeg,jbeg: integer; // Переменные для хранения адреса начальной, заведомо пустой ячейки.
  t: integer;  //  Промежуточная переменная для хранения числа окружающих стен.
  Stop: boolean;  // Промежуточная переменная для остановки работы алгоритма.
  n1: integer;   // Переменная для хранения размера лабиринта.
begin
Writeln('Введите размер лабиринта:');
Readln(n1);
Writeln('Введите структуру лабиринта( "*" - стена, "." - комната):');
for i:=1 to n1 do
    for j:=1 to n1 do
      Readln(a1[i,j]);
 
Readln(n1);
vyvodarr(a1,n1);
for i:=1 to n1 do
    for j:=1 to n1 do
      b1[i,j]:=' ';
 
Writeln('Введите координаты точки вхождения:');
Writeln('Номер строки:');
Readln(ibeg);
Writeln('Номер столбца:');
Readln(jbeg);
 
i:=ibeg;
j:=jbeg;
t:= 0;
k:= 0;
 
 
repeat
 
  if a1[i,j+1]='*' then
     begin
       inc(t);
       b1[i,j+1]:= 'W';    // Стена('W'- wall)
     end
  else
    if not (b1[i,j+1] in ['D','V','W']) then
     b1[i,j+1]:= 'R';      // Дорога ('R' - road)
 
  if a1[i,j-1]='*' then
     begin
       inc(t);
       b1[i,j-1]:= 'W';
     end
  else
  if not (b1[i,j-1] in ['D','V','W']) then
     b1[i,j-1]:= 'R';
 
  if a1[i+1,j]='*' then
     begin
       inc(t);
       b1[i+1,j]:= 'W';
     end
  else
  if not (b1[i+1,j] in ['D','V','W']) then
     b1[i+1,j]:= 'R';
 
  if a1[i-1,j]='*' then
     begin
       inc(t);
       b1[i-1,j]:= 'W';
     end
  else
  if not (b1[i-1,j] in ['D','V','W']) then
     b1[i-1,j]:= 'R';
 
  if t = 3 then
       begin
         b1[i,j]:= 'D';   // Были в этой ячейке, но здесь тупик 'D' - dead end.
         inc(k);
       end;
  t:= 0;
  if (a1[i,j] = '.') and (b1[i,j] <> 'V') and (b1[i,j] <> 'D') then
     begin
     b1[i,j]:= 'V';  // Были в этой ячейке (v - "visit").
     inc(k);
     end;
  stop:= true;
for ip:=1 to n1 do
  for jp:=1 to n1 do
    if b1[ip,jp] = 'R' then
       begin
       i:=ip;
       j:=jp;
       stop:=false;
       end;
 
ClrScr;
writeln('"W"- wall, "R" - road, "V" - visit, "D" - dead end.');
vyvodarr(b1,n1);
Delay(1000);
 
until stop;
 
writeln('Количество свободных ячеек: ',k);
Readln;
end.

Перед вами страница с вопросом Составить программу вычисляющую площадь комнаты?, который относится к
категории Информатика. Уровень сложности соответствует учебной программе для
учащихся 10 — 11 классов. Здесь вы найдете не только правильный ответ, но и
сможете ознакомиться с вариантами пользователей, а также обсудить тему и
выбрать подходящую версию. Если среди найденных ответов не окажется
варианта, полностью раскрывающего тему, воспользуйтесь «умным поиском»,
который откроет все похожие ответы, или создайте собственный вопрос, нажав
кнопку в верхней части страницы.