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

procedure filepr;

begin

assign(first, p);

assign(second, v);

assign(third, t);

reset(first);

reset(second);

rewrite(third);

end;

function check1(x: string): boolean;

begin

if length(x) > 0 then begin

if x[1] <> ' ' then

check1 := true;

end;

end;

procedure menu;

begin

writeln;

writeln('++++++++++++++++++++++++++++++++++++++++++++++++');

writeln('+ Vvod imeni pervogo faila --> 1 +');

writeln('+ Vvod imeni vtorogo faila --> 2 +');

writeln('+ Vvod imeni tretiego faila --> 3 +');

writeln('+ Preobrazovat tretii fail --> 4 +');

writeln('+ +');

writeln('+ Konec --> 0 +');

writeln('++++++++++++++++++++++++++++++++++++++++++++++++');

writeln;

end;