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

write('Vvedite komandu: ');

readln(Rem);

case Rem of

'0': Cont:=False;

'1': begin

writeln('Text:');

readln(Txt);

Vvod:=True;

end;

'2': begin

if Not Vvod then

writeln('Ne vveden text')

else

alfslovo(Txt);

end;

'3': begin

if Not Vvod then

writeln('Ne vveden text')

else

colsimmslovo(Txt);

end;

'4': begin

if Not Vvod then

writeln('Ne vveden text')

else

writeln(Txt);

end

else

writeln('Neizvestnaya komanda');