Язык Pascal. Программирование для начинающих

const
  nmax=20;
var
  a: array[1..nmax,1..nmax] of integer;
  b: array[1..nmax] of integer;
  n,m,i,j,jm: byte;
  s,max: integer;
begin
  write('Введите размеры матрицы n, m: ');
  readln(n,m);
  writeln('Исходная матрица: ');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  max:=0;
  for i:=1 to n do max:=max+a[i,1];
  jm:=1;
  for j:=2 to m do
  begin
    s:=0;
    for i:=1 to n do
      s:=s+a[i,j];
    if s>max then
    begin
      max:=s;
      jm:=j;
    end;
  end;
  writeln('Наибольшее среднее арифметическое в ',jm,'-м столбце и = ',max/n:0:2);
  for i:=1 to n do writeln(a[i,jm]);
  writeln('Преобразованная матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if j=jm then a[i,j]:=0;
      write(a[i,j]:4);
    end;
    writeln;
  end;
end.
 
и как применить защиту от неправильного ввода компонентов????

const T=7;
var
    arr: array[1..T] of integer;
    i: byte;
    mult: longint;
begin
    randomize;
    mult := 1;
    for i:=1 to T do begin
        arr[i] := random(10);
        write(arr[i],' ');
        if i mod 2 = 0 then
            mult := mult * arr[i];
    end;
    writeln;
    writeln(mult);    
end.

uses crt;
var
a:array[1..54] of integer;
i, k:integer;
label m1;
function vvod:integer;
var t, t1:integer;
begin
t:=random(90)+10;
t1:=random(2)*2;
t1:=t1-1;
t:=t*t1;
vvod:=t;
end;
begin
clrscr;
a[1]:=vvod;
write(a[1], ' ');
for i:= 2 to 54 do
begin
m1:a[i]:=vvod;
for k:= 1 to i-1 do
begin
if a[i]=a[k] then goto m1;
end;
write(a[i], ' ');
end;
end.

var command:char;
procedure Chtenie;
var
  f, g: file of integer;
  t,k, l: integer;
  chislo, r: real;
 
begin
  chislo:= 2/7;//требуемый результат 
  writeln('введите диапазон допустимой погрешности ((',chislo:2:3,' + r)&(',chislo:2:3,' - r))');
  readln(r);// допустимая погрешность
  t := 0;//счетчик
  assign(f, 'bd_chislitel');assign(g, 'bd_znamenatel');
  Reset(f);Reset(g);
  while not eof(f) do
  begin
    read(f, k);//k - числитель
    {writeln(k, ' ');}
    while not Eof(g) do
    begin
      read(g, l); // l - знаменатель
      if ((k / l) (chislo + r)) and ((k / l) > (chislo - r)) then
      begin writeln('числитель = ':15,k:6, ' '); writeln('знаменатель = ':15,l:6, ' ');t:=t+1;writeln;end;
    end;Reset(g);
  end;
    close(f);  close(g);
    writeln(#10,'количество отношений сочетаний числителя к знаменателю:= ',t);
    readln;
end;
 
procedure zapis;
const
  n = 9; k = 5; n1 = 100;
 
type
  t = array[1..n1] of integer;
 
var
  x, min, max: t; 
  i, j, r: integer; 
  a, b: integer;
  f, g: file of integer;
 
begin// задаются начальные значения max,min,x
  assign(f, 'bd_chislitel');Rewrite(f);
  assign(g, 'bd_znamenatel');Rewrite(g);
  for j := 1 to k do 
  begin
    max[j] := n - j + 1;
    min[j] := k - j + 1;
    x[j] := min[j]
  end; 
 
  writeln('Сочетания из ', n, ' эл-тов по ', k, ' элементов'); 
 
  while i = k do 
  begin
    for j := k downto 1 do write(x[j], ' '); writeln; 
    r := r + 1; i := 1; 
    a := 1000 * x[1] + 100 * x[2] + 10 * x[3] + x[4]; write(f, a);
    b := 10000 * x[1] + 1000 * x[2] + 100 * x[3] + 10 * x[4] + x[5];write(g, b);
 
    while (i = k) and (x[i] = max[i]) do i := i + 1;
    if i = k then x[i] := x[i] + 1;
    for j := i - 1 downto 1 do 
    begin
      min[j] := x[j + 1] + 1; 
      x[j] := min[j]
    end
  end; 
   close(f);close(g);
end;
 
begin
zapis;Chtenie;
end.

var
  i, k, t: integer;
  kolichestvo: longint;
  s: string;
 
begin
  write('введите число');
  readln(k);
  while k > 0 do
    begin
     t := (k div 100000) + (k div 10000 mod 10) + (k div 1000 mod 10) + (k div 100 mod 10) + (k div 10 mod 10) + (k mod 10);
     k := k - t;
     inc(i);
  end;
  writeln(i);
readln;
end.