Курсовая работа: Работа с текстовыми строками, двумерными массивами, файловыми структурами данных

end;

'2':

begin

write('Vvedite imja vtorogo faila: ');

readln(v);

if check1(v) = true then

begin;

vf := true;

clrscr;

menu;

end

else

begin

clrscr;

menu;

writeln('Error input');

end;

end;

'3':

begin

write('Vvedite imja tretego faila: ');

readln(t);

if check1(t) = true then

begin

tf := true;

clrscr;

menu;

end

else