Turbo Paskal Составить программу обработки символьных данных

[beda+]

Вставить пробел после первых 2-х символов в слова, имеющие длину, на 1 меньше заданной

[stalker1995s]

Пишется не "Paskal" а "Pascal" - Сразу видно, что до программирования вам до лампочки, главное чтоб препод отвязался ?. А если не так, покажите наработки.

[beda+]

Program Lab;
uses crt;
var
s,s1:string;
i,j,k,n:byte;
begin
ClrScr;
Writeln('Введите строку из сло ,разделёными пробелами');
Readln(s);
Write('Введите максимальную длину слова k= ');
Readln(k);
n:=length(s);
i:=1;
While i<=n do
if (s[i]<>' ')and((i=1)or(s[i-1]<>' ')) then
begin
s1:=' ';
j:=1;
While (j<=n)and(s[j]<>' ')do