Pascal type mismatch

[razer]

Sveiki,

 

kāds nezin kādēļ šajā kodā es dabūju type mismatch error dēļ InpStr:=ms; iekš Lab3U? InpStr ir strings un mans array ir of string?

program Lab3;
uses LAB3U, winCRT;

var
 InputString: STRMod;
 WordOut, WordIn: STRData;
 OutputString: STRMod;
begin
  writeln('Ievadi analizeejamo rindu');
  readln(InputString);
  Writeln(' Analizejam rindu');
  writeln(InputString);
  writeln('ievadi burtu kuru aizvietot');
  readln(WordOut);
  writeln('ievadi divu burtu kombinaciju ar kuru aizvietot');
  readln(WordIn);
   StrReplace( InputString, WordOut, WordIn, OutputString);
   Writeln( ' Apstradajama un rezultejosaa rinda');
   writeln( InputString );
   writeln( OutputString);
   writeln( ' Nospied ENTER');
   readln;
   end.

unit LAB3U;
Interface
const LenStrMod=255;
      LenStrdata=80;

type STRMod = string [LenStrMod];
     STRData = string [LenStrdata];
 var NumMod : integer;
procedure StrReplace
 ( InpStr : STRMod; NameOut, NameIn : STRData; var OutStr : STRMod);

implementation
var ModPos: integer;
i: integer;
ms:array[1..20] of string;

procedure StrReplace
 ( InpStr : STRMod; NameOut, NameIn : STRData; var OutStr : STRMod);
begin
     for i:=1 to length(InpStr) do begin

     ms[i]:=InpStr[i];

     end;
     for i:=1 to length(InpStr) do begin
        if (ms[i] = NameOut) then
        ms[i]:= NameIn;
     end;
     for i:=1 to length(InpStr) do begin
          InpStr[i]:=ms[i];
     end;


OutStr:= InpStr;
end;
 begin

 end.

Labots Marts 29, 2015 - razer

[VIL]

Izmanto vienu datu tipu "string" visam un paskaties, kas notiek

[Borja]

Nu bet logjiski. ms un InpStr nav vienaada tipa mainiigie.
Vispaar ir priekshstats, ar ko atshkjiras simbolu virkne no simbolu virknju masiiva?

[HIGH-Zen]

ms:array[1..20] of string;
ms  izskatās šādi:
 [1] = "String"
 [2] = "String"
 ...

InpStr : string[255];
InpStr izskatās šādi:
 [1] = 'S'
 [2] = 't'
 [3] = 'r'
 [4] = 'i'
 [5] = 'n'
 [6] = 'g'
 ...

InpStr[i] := ms[i]

'S' := "String"?

Char <> String!