составить блок-схемы

program str4;
uses crt;
var s:string; i,c,max:integer;
begin
  write('vvedite s-> ');
  read(s);
  c:=0;
  max:=0;
  for i:=1 to length(s) do begin
    if s[i]=' 'then begin
      if c > max then max:=c;
      c:=0;
    end
    else inc(c);
  end;
  if c > max then max:=c;
  writeln(' ',max);
 
end.

uses crt;
var
str:string;
i:integer;
Ipos:integer;
 
procedure zzz;
begin
ipos:=pos(str[length(str)],str);
if ipos=length(str) then
begin
writeln('Готовая строка',str);
exit;
end;
delete(str,ipos,1);
insert('.',str,ipos);
i:=ipos;
if i<length(str) then zzz
end;
begin
writeln('Введите строку');
readln(str);
zzz;
end.

var a:array[1..10] of integer;
    k1,k2,i:integer;
begin
   for i:=1 to 10 do
     begin
        Write('a[',i,']=');
        ReadLn(a[i]);
     end;
        if a[1] mod 2=0 then
          k1:=1
        else
          k1:=2;
  i:=2;
   repeat
        if a[i] mod 2=0 then
          k2:=1
        else
          k2:=2;
        if k1=k2 then
          begin
             Writeln(i);
             i:=10;
             k1:=-1;
          end
        else
         k1:=k2;
      i:=i+1;
   until i>10;
if k1<>-1 then
Writeln('0');
Readln;
end.

Var X,Z:Real;
      N,N1,i:Integer;
Begin
  Write("Введите X и N ");
  ReadLn(X,N);
  If n>0 Then WriteLn(" Ошибка ввода! ");
  Else 
  Begin
    Z:=1; N1:=1;    
    For i:=1 to N Do
    Begin
      X:=X*X;
      N1:=N1*N;
      Z:=Z+(X/N1);
    End;
    WriteLn(Z);
  End;
End.