Until loop fixed. String in writeln and write added. star in procedure decl. added.