Тема: Процедура/Масив логічного типу
Не працює програма, допоможіть будь-ласка знайти прогалини.
Завдання:
Сформувати масив В типу BOOLEAN, в якому значення TRUE буде
записуватись, якщо довжина рядка більша 65 символів, а значення
FALSE – у противному випадку.
Program Proc;
const n = 65;
Type
TST=string;
var
MSTR: array [1..100] of TST;
B: array[1..100] of boolean;
i, len: integer;
procedure trfl(STR:TST; var L: boolean);
begin
L:=True;
if len > n then lenght(TST)
else L:=False;
end;
begin
writeln('Please, write Your string:');
for i := 1 to 100 do
readln(MSTR[i]);
for i := 1 to 100 do
trfl(MSTR[i], B[i]);
writeln ('Result of B:');
for i:= 1 to 100 do
writeln('B');
end.