Б) Описание процедур и функций программы

Здесь я буду описывать процедуры и функции, из которых состоит приложение.

Функция проверяет строку на соответствие определенным условиям (целое число-режим 1, строка из букв русского алфавита без пробелов – режим 2, строка из букв русского алфавита с пробелами.

function checkstr(stroka:shortstring;vid:byte):boolean;
var i,a,b:byte;
begin
if vid=1 then begin a:=48; b:=57 end else begin a:=192; b:=255 end;
if vid<3 then
begin
for i:=1 to length(stroka) do
begin
if (ord(stroka[i])>b) or (ord(stroka[i])<a) then begin checkstr:=true; exit; end;
end;
end else
begin
for i:=1 to length(stroka) do
begin
if ((ord(stroka[i])>b) or (ord(stroka[i])<a)) and (ord(stroka[i])<>32) then begin checkstr:=true; exit; end;
end;
end;
checkstr:=false;
end;

• Program Massiv
• Программка test
• Процедура Assign