Курсовая работа: Работа с текстовыми строками, двумерными массивами, файловыми структурами данных
clrscr;
menu;
writeln('Error input');
end;
end;
'4':
begin
if (pf = true) and (vf = true) and (tf = true) then
begin
filepr;
chmax;
if check2 = false then
begin
for l := 1 to m do
begin
slv;
obrslov(slova1, slova2, k1, k2, slova, k);
for g := 1 to k do
begin
write(third, slova[g]);
if g < k then write(third, ' ');
end;
writeln(third, '');
end;
if m1 <> m2 then
begin
if m1 > m2 then for L := m to m1 do
begin
readln(first, S1);