как исправить ошибку 11 слишком длинной строки в Pascal Turbo

программирование pascal

gr:=1;
Print(gr.'a1L','a2L','','koef_cor=','R_det_L=','Sa1L=','Sa2L','','FLine=','ta1L=','ta2L','',a1L,a2L,0,koef_cor,R_det_L,Sa1L,Sa2L,0,FLinee,ta1L,ta2L,0); - пишет 11 ошибка, слишком длинная строка

Примечание:
{Печатаем исходные и табличные данные в выходной файл out.dat}
Assign(g,'c:\tpq\bin\out.dat');
Rewrite(g);
WriteLN(g,'Исходные данные');
For i:=1 to N do WriteLN(g,x[i]:6:2,' ',y[i]:6:2);
writeln(g,' N=',N:2,'-число наблюдений');
WriteLn(g,'Табличные данные');
For i:=1 to N1 do WriteLN(g,Ftab[i]:6:2,' ',Stab[i]:8:4);
{Вывод результатов для линйной аппроксимации}
gr:=1;
Print(gr.'a1L','a2L','','koef_cor=','R_det_L=','Sa1L=','Sa2L','','FLine=','ta1L=','ta2L','',a1L,a2L,0,koef_cor,R_det_L,Sa1L,Sa2L,0,FLinee,ta1L,ta2L,0);
{Вывод результатов для квадратичной аппроксимации}
gr:=2;
Print(gr,'a1sqr','a2sqr','a3sqr','','R_det_sqr=','Sa1sqr=','Sa2sqr=','Sa3sqr','Fsqr=','ta1sqr','ta2sqr=','ta3sqr',a1sqr,a2sqr,a3sqr,0,R_det_sqr,Sa1sqr,Sa2sqr,Sa3sqr,Fsqr,ta1sqr,ta2sqr,ta3sqr);
{Вывод результатов для экспоненциальной аппроксимации}
gr:=3;
Print(gr',a1exp','a2exp','','','R_det_exp=','Sa1exp','Sa2exp','','Fexp=','ta1exp','ta2exp','',a1exp,a2exp,0,0,R_det_exp,Sa1exp,Sa2exp,0,Fexp,ta1exp,ta2exp,0);
как то так выглядит часть

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.