Розробка комп'ютерних навчальних засобів з обраної предметної області

TEXT2STR.PAS

type

str80 = string[80];

var

f1: text;

f2: file of str80;

str: string;

str2: str80;

begin

if paramcount<>2 then exit;

assign(f1, paramstr(1));

reset(f1);

assign(f2, paramstr(2));

rewrite(f2);

write('Processing');

while not eof(f1) do begin

readln(f1, str);

str2:=copy(str, 1, 80);

write(f2, str2);

write('.');

end;

writeln;

close(f2);

close(f1);

end.

CURSOV16.PAS

uses

crt;

procedure a1;

begin