Функція яка просить ввести імя і нічого не повертає виводить " Привіт ім'я "

Выводит 2 строки: Сам массив(20 элементов от 10 до 99) и строку с номерами элементов кратных 7, если таковых элементов нет, то пишет No elements.

program test;
uses crt;
const
  t:boolean=false;
var
  arr:array[1..20] of integer;
  i:integer;
begin
  randomize;
  clrscr;
  for i:=1 to 20 do
    begin
      arr[i]:=random(90)+10;
      write(arr[i],' ');
    end;
  writeln;
  for i:=1 to 20 do
    if arr[i] mod 7 = 0 then
      begin
        write(i,' ');
        t:=true;
      end;
  if t=false then
     write('No elements');
end.

Program one;uses crt;
const
    k = 10;
var
    S: array[1..k] of integer;
    i, min: integer;
begin
    randomize;
    writeln('Array:');
    for i := 1 to k do
    begin
        S[i] := random(20);
        write(S[i], ' ');
    end;    writeln;
        min := S[1];
     for i := 2 to k do
        if S[i] < min then
            min := S[i];
    writeln('Min: ', min);
    writeln('Result:');
    for i := 1 to k do
    begin
        S[i] := S[i] - min;
        write(S[i], ' ');
    end;
end.

program two;
uses crt;
const
    m = 5;
    k = 5;
var
    A: array[1..m] of array[1..k] of integer;
    i, j, min: integer;
begin
    randomize;
    writeln('Matrix:');
    for i := 1 to m do
    begin
        for j := 1 to k do
        begin
            A[i][j] := random(20) - 10;
            write(A[i][j], ' ');
        end;
        writeln;
    end;
    writeln('Result:');
    for i := 1 to m do
    begin
        for j := 1 to k do
        begin
            if A[i][j] > 0 then
            begin
                write(A[i][j], ' ');
                break;
            end;
        end;
    end;
end.