Курсовая работа: Деление чисел в нормализованной форме

CONST

pt='0. ';

z='0';

x1=10;

VAR

lst1,lst2: INTEGER;

j,x,M,k1,k2,k: REAL;

st,st1,st2,jst,xst: string;

temp,temp1: text;

Ch: CHAR;

BEGIN

ASSIGN (temp, 'temp. DAT'); { Создаем временные файлы, для промежуточных преобразований над числами }

ASSIGN (temp1, 'temp1. DAT');

REWRITE (temp);

REWRITE (temp1);

WRITELN ('Введите первое число: '); {Считываем оба числа в файл}

READ (st);

WRITELN (temp,st);

WRITELN ('Введите второе число: ');

READLN;

READLN (st);

WRITE (temp,st);

k1: =1;

k2: =1;

RESET (temp);

WHILENOTEOF (temp) {Переписываем числа во второй файл, убирая '. '}

DO

BEGIN

WHILE NOT EOLN (temp)